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ABSTRACT 

(Distribution  Limitation  Statement  No.  2) 


The  OUTPUT  code  is  designed  for  the  analysis  of  early-time  nuclear  explosions. 

The  equations  for  radiative  transfer  (characteristic  method)  and  conservation 
of  total  (fluid  and  radiation)  momentum  and  energy  are  solved  in  one-dimensional 
(plane  or  spherical)  geometry.  The  radiation  equations  include  first-order 
Compton  scattering,  and  the  hydrodynamic  equations  are  treated  in  explicit 
Lagrangian  form.  The  code  is  undergoing  continuing  development;  the  formulation, 
flow  charts,  glossary,  and  listings  presented  represent  its  status  as  of 
27  October  1967. 
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SECTION  I 
INTRODUCTION 


PURPOSE  OF  CODE 


The  OUTPUT  code,  a  version  of  the  SPUTTER  code,  is  a  one- 
dimensional,  Lagrangian,  radiative  hydrodynamics  program  written  in  the 
FORTRAN  IV  language.  The  purpose  of  this  code  is  to  calculate  and  to 
predict  the  radiative  spectrum  and  the  early-time  evolution  of  nuclear 
devices.  The  code  has  been  applied  to  several  devices;  the  results  of 
these  applications  are  reported  in  reference  1. 

PHYSICAL  MODEL 

The  solution  to  the  radiation  transport  equation  is  similar  to  that  in 
the  standard  SPUTTER  program  (Ref.  2)  in  that  the  characteristic  ray 
approach  is  employed  for  grey  or  multifrequency  problems  with  mixed 
diffusion  and  transport  regimes.  However,  OUTPUT  includes  as  options 
Thomson  scattering  (conservative  scattering)  and  first-order  Compton 
scattering  (nonconservative).  The  physics  of  the  hydrodynamics  routine 
have  also  been  improved  by  including  the  radi?,tion  pressure  as  a  tensor. 

This  improvement  has  the  effect  of  adding  a  term  to  the  momentum  equation 
and  a  corresponding  work  term  to  the  energy  equation.  The  energy  equation 
also  now  uses  the  radiation  pressure  as  calculated  in  the  radiation  routines 
rather  than  the  usual  equilibrium  euffusion  assumption  Pf  =  (1/3)  a  0*,  where 

0  =  kT  is  the  local  material  temperature  multiplied  by  the  Boltzmann  con- 

3  4 

stant,  in  electron  volts,  and  a  =  137  ergs/cm  /eV  is  the  Stefan  radiation 
constant  in  appropriate  units. 
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LOGIC  OF  CONSTRUCTION 

The  logic  followed  in  constructing  OUTPUT  has  been  that  the 
SPUTTER  format  and  bookkeeping  subroutines  should  be  employed  as  fully 
as  possible  so  as  to  achieve  the  following  benefits:  (1)  opacities  and 
material  properties  developed  for  SPUTTER  would  be  immediately  usable; 
(2)  problems  run  with  SPUTTER  could  be  picked  up  (i.  e.  ,  off  a  tape)  and 
continued  with  OUTPUT  or  vice  versa,  using  at  most  a  simple  transcription 
program;  (3)  the  job  of  redeveloping  the  auxiliary  subroutines  could  be 
avoided;  and  (4)  personnel  familiar  with  SPUTTER  and  its  derivatives  could 
easily  learn  the  differences  between  the  codes.  The  differences  between 
the  current  SPUTTER  program  and  the  OUTPUT  code  are  described  in 
Appendix  I.  It  should  be  noted  that  the  OU  fPUT  code  was  designed  for  a 
particular  class  of  problems;  consequently,  the-  capability  of  the  SPUTTER 
program  to  handle  certain  problems,  e.  g.  ,  conduction,  boiling,  etc.,  has 
been  eliminated.  This  has  increased  the  efficiency  of  the  code  and  released 
needed  core  storage  and  common  variables.  The  user  is  cautioned  that 
variables  used  solely  in  deleted  sections  of  the  SPUTTER  code  are  now 
employed  differently. 

This  report  is  not  a  complete  documentation  of  the  OUTPUT  code  but 
rather  a  documentation  of  those  portions  of  the  SPUTTER  code  that  have 
been  substantially  altered.  The  SPUTTER  code  has  been  documented  in 
reference  3.  As  an  aid  to  gaining  experiei  ,e  in  using  the  OUTPUT  code, 
a  list  of  the  cards  used  in  making  the  successful  comparison  between  the 
Gulf  General  Atomic  and  Air  Force  Weapons  Laboratory  versions  of  the 
OUTPUT  code  is  included  in  Appendix  II. 
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SECTION  II 

THEORETICAL  MODEL. 

The  equations  presented  in  this  section  represent  the  theoretical 
model  employed  in  the  OUTPUT  code.  In  general,  the  constraints  stated 
with  the  equatior  s  limit  the  applicability  of  the  model  to  low-temperature 
devices,  with  one -dimensional  (plane  or  spherical)  symmetry. 

RADIATION  EQUATIONS 

The  derivation  of  the  transport  equation  for  the  intensity  I(v,  ft,  r,  t), 

i.  e.  ,  the  radiant  energy  per  unit  frequency  v,  per  unit  solid  angle  dft,  about 

— ► 

the  direction  (unit  vector)  ft  per  unit  time  dt,  per  unit  area,  including  the 
effects  of  Compton  scattering,  is  presented  in  reference  4.  A  summary  of 
this  derivation  is  presented  below. 

The  contributions  to  the  rate  of  change  of  the  intensity,  or  to  1/c  (9I/8t)  + 
!]  -VI,  are  assumed  to  be  absorption,  emission,  and  the  scattering  of 
photons  by  free  electrons.  The  absorption  coefficient  includes  all  signif¬ 
icant  processes  by  which  photons  are  absorbed  subject  to  the  local- 
thermodynamic -equilibrium  (LTE)  assumption.  The  scattering  coefficient 
and  the  differential  cross  section  for  scattering  are  determined  from  the 
Klein -Nishina  formula  (Ref.  5).  A  series  of  further  approximations  are 
required  to  complete  the  hypothesis.  They  are: 

1.  The  electron  states  before  and  after  scattering  are  nondegenerate. 

2.  Doppler  effects  can  be  ignored. 

3.  Polarization  is  unimportant. 

2  2 

4.  hv  / m  c  <  0.  2,  m  c  =  rest  energy  of  an  electron. 

o  o 

5.  Stimulated  scattering  is  negligible. 
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6.  Retardation  effects  are  omitted. 

7.  The  spectrum  is  a  smooth  function  of  v. 

With  these  assumptions,  the  following  transport  equation  in  plane  geometry 
is  obtained  for  the  quantity  I((u)  =  — 


4  =  4'  (B  -  I)  +  S 

ax  a  v 


where  4  =  fl  •  x  is  the  normal  direction  cosine; 


a  a 


(1) 


(2) 


is  the  linear  absorption  coefficient  corrected  for  induced  emission; 


B 

v 


4tt1iv  ^ 

3 

c 


.  hv  /e 

(e 


(3) 


is  the  Planck  distribution  function  for  radiation  from  a  blackbody  at 

2n 

temperature  0  eV,  multiplied  by  — ; 


-w  / 


d4'I(4')[3  -  4  +  (3n2  -  1)(m')Z] 


+  y  -2i  + 


7b  jf  d*‘'  ' r  ^r)  [3  -  "2  +  "Wf2  -  5> 


+  (3^^  -  +  4(3  -  5M2)(4')3] 


where 


+  0  (/) 


(4) 


8  2 

4  =  —  it  r  N 

S3  o  e 


(5) 


is  the  Thomson  scattering  coefficient  valid  for  hv  «m  c2,  in  which 

2.2.  ° 
r  =  e  /(m  e  )  is  the  classical  electron  radius  and  N  is  the  number  of 
u  u  3  e 

electrons  per  cm  ;  and 


y  = 


hv 


2 

m  c 
o 


(6) 
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Examination  of  the  form  of  the  scattering  source  term  reveals  that  the 
low-energy  limit,  i.  e.  ,  y  -*•  0,  gives  the  Thomson  scattering  law.  To 
determine  the  material  heating  due  to  Compton  scattering,  it  is  necessary 
to  integrate  over  all  solid  angles  and  over  the  entire  frequency  range.  The 
result,  with  sign  reversed,  is 


-V-  F  =  -c 


00  h  f° 

f  -  Ev)dv  +MS  — S  J  vEv 

•'n  rn  c  o 


m  C  O 

o 


where 


F  =  f  dv  f  I(v.fl)fldl) 

Jq 


is  the  total  flux  and 


is  the  radiant  energy  density  spectrum.  The  first  term  on  the  right  is  the 
usual  heating  term  due  to  absorption  or  emission,  whereas  the  second  term 
is  the  heating  rate  due  to  Compton  scattering. 


NUMERICAL  INTEGRATION  OF  THE  TRANSPORT  EQUATION 

The  development  of  a  scheme  to  integrate  the  transport  equation 
along  a  ray  requires  that  several  numerical  approximations- 6e  made. 
Rewrite  the  source  term  S  by  rearranging  and  by  employing  the  notation 

1 

I  -  C  I(M)(M)n  dp  (8) 

n  J- 1 

Thus,  I  ,  I  i  and  I  are  proportional  to  the  radiation  energy  density,  the 
'  o’  1  2 

flux,  and  the  radiation  pressure,  respectively.  Now, 
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S  =  ~Mg  { 1(1  -  2y)  -  [(3  -  nZ)  Iq  +  (3fx2  -  1)1.,] 

+  T£Y  [(3-m2)Iq+  M(3m2  -  5)Id  +  (3m2  -  1)I2  +  m(3  -  5m2)I3] 

-  J£rZ  ^  t(3  -  M2)Ic  +  M(3M2  -  5)I4  +  (3m2  -  1)I2  +  M(3  -  5^)1^]} 


It  is  convenient  to  expand  the  last  term  as  follows: 


2  8f(y)  _ 


-  2yf(y) 


Using  this  substitution,  one  finds 


S  =  -2 y)  -  [(3  -  M2)Io  +  (3M2  -  1)I2] 


+  y  [(3  -  M2)  IQ  +  /*(3M2  -  5)  I4  +  (3m2  -  1)  I2  +  m(3  -  5^)  I3] 


2 

16  a7  [(3  “  XQ  +  -  5>  J1  +  -  1)  I2  +  #*(3  -  5m2)  I3]  I 


In  Eq.  (1),  the  intensity  I(m»v)  is  the  monochromatic  intensity.  In  most 
computer  codes  employing  radiation  transport,  the  quantity  being  calcu¬ 
lated  is  the  integral  of  the  intensity  over  some  frequency  band  (v ^ »vj+^). 
for  which  one  finds 


where 


M  =  M  (B.  -  I.)  +  S. 
dx  a^  j  j  j 


/  j+i 

S.  =  /  S(v)  dv 

J  X 


v 

V/ 


I(v)  dv 
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The  notation  I.  must  not  be  confused  with  I  as  previously  defined.  However, 
J  n 

the  distinction  between  symbols  is  fairly  clear.  Note  that  single  subscripts 
denote  intensities  and  double  subscripts  represent  moment  quantities.  Con¬ 
tinuing,  one  finds 

S.  -  -^{1.(1  -  2y.)  -  ^[<3  -  (l2)  :o  ♦  (3m2  -  1)X2  ] 


+  [(3  -  S)  Iq  +  -  5)  I±  +  (3^  -  1)  I2  +  p(3  -  5p“)  I3  ] 

J  j  j  j  J 


76  -H-Hl  1,3  '  f,2)Io<vi+1)  +  ^  -  *>Ii<,’j+l> 


m  c 
o 


+  (3p2  -  l)I2(v  )  +  p(3  -  5p2)I3(v  )] 


+  h  2-v2  [(3  -  p2)  Iq  (v  )  +  p(3p2  -  5)  I±  (v^)  +  p(3  -  5p2)  I3  (v  ) 

m  c 
o 


+  <3p  -DI2(v 


(15) 


where  the  assumption  has  been  made  that  y ^  =  (1/2)  ( y ^  +  y^+^)  and 


•Vj+1 


/jti 

1 

j  -  ; 


(v)  dv 


(16) 


Moreover, 


'.I  =  f  j+1  y  I 

J  X.  J 
1  •'v  • 

J  J 


(v)  dv 


(17) 


One  should  note  that  in  Eq.  (15)  the  quantities  IQ(Vj),  I^v^),  etc.  ,  are  the 

moment  quantities  evaluated  at  the  boundaries  of  the  frequency  group  of 

interest,  i.  e.  ,  v.  and  v .  J .  At  this  point,  an  approximation  must  be  made 
J  J+1 

relating  the  boundary  quantities  and  the  frequency  average  quantities.  If 
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the  spectrum  is  flat  over  the  various  frequency  groups,  then 

I  Si  (v.)(v.  -  v.) 

x  j  j+ 1  j 

Thus, 

S.  =  -|X6  1.(1  -  2  y.)  -  £  [(3  -  „2>  I  ♦  (3/  -  1)  I  ] 

+  ^  F.[(3  -  m2)I0  +  H(3H2  -  5)^  +  (3n2  -  1)I?  +  „(3  -  542) I3  ] 

j  j  'j  j 


Tb  .  [<3  -  f2>  I  +  C(3C2  -  S)  I  1  <3„*  -  1, 

mQC  j+2  j+1  j+1  j+1 


+  #4(3  -  5fi  )  I  ] 

j+1 


Tb  ^—irr[<3  -  <‘2)  Io. +  (‘(3t‘2  -  5)Ii  +  <3"2  -  ‘'‘z 

mQC  J+1  J  J  j  j 


+  M(3  -  5#*  )I3  ][ 

j  J 

Reorganizing  the  source  term  with  Av.  =  v.  .  -  v one  obtains 

J  J+1  J 

S.  =  -C.jljd  -2y.)  -^Az  [(3  -  M2)I0  +  <3l»2  -i)I2  l 

j  j 

+  T6Ai^  -  5)1!  +  (3  -  5#iZ)I3  ] 

j  j 


^a3[(3-^2)Io  M3m2-DI2  ] 

j+1  j+1 


4A,K[(3H2-5)I  +(3-5u2)T  ]( 
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where 


A,  =3 y  .  +  - ^ 

1  '  j  2  Av . 

me  j 

o  J 


Az  -  1  -  A1- 


A  -  h  j+1 

3"m  c2  AVl 
o 


At  this  point,  the  integration  of  the  transport  equation  can  be  performed 


as  follows : 


"  v  <Bj  -  V  -  "s  V1  -27j)  +  "s  t  > 


where 


Using 


{  }  =  -J-  +  I.  (1  -  2y  .) 

9 


(x/fi)  [fJL  +  U  (1  -  2y  )] 

cl  .  9 

J 


as  an  integrating  factor,  one  finds 


-Q!  (x  -x  )  a  x2  -Of  (x2-x') 

Ij  <*2>  =  IjUj)  «  +  f  d*' 

X1 


**,  r*z  ,  ,  ■aj<xz■x', 


tf  <> 


where 


ot.  =  —  [n  +  fi  (1  -  2 y.)] 

j  ji  Lra^  's  rj'J 


(28) 
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The  first  two  terms  on  the  right-hand  side  have  already  been  evaluated  in 
radiation -transport  routines  currently  employed  by  SPUTTER  (Ref.  2). 
Here,  the  integral  in  the  third  term  will  be  evaluated.  The  term  in  braces 
[Eq.  (25)]  contains  such  terms  as  IQ.,  etc.  At  this  point,  some 

approximation  must  be  made  concerning  the  spatial  dependence  of  these 
quantities.  Following  the  assumption  used  in  developing  the  Thomson 
scattering  code,  assume  that  all  functions  vary  linearly  in  geometric  space. 
Performing  the  required  integration,  one  then  finds 

u  x2  -at  (x  -x') 

-  r  {  > .  dx' 


n  16  2 


8  3  A 

TTIh^l 


K“V>4 

N»)-f 


-at.  A 
J 


-at  .A^ 


1  -  e 


-a.  A 

J 


-at  .A 


1  -  e 


|i  16  3 


1  -  e 


t.  A 

- 


E  +  F 


X2  -  X1 6 


1  -  e 


+  TTeA  3^ 


where  A  =  Ax  =  x_  -  x. 

2  d 


A  /  -Ot.i 

-Of  .A  v  /  l 

>-L-)o  ,H(m 

at.  /  \  a. 

J  7  \  J 


1  -  e 


A  =  —  {x2(FI0(J,x1)  +  M  FI2(J,Xl))  -  x1(FI0(J,x2)  +  /fI2(J,x2»} 


B  =  ^-{FI0(J,x2)  -  FIO(J,Xl)  +  f42(FI2(J,x2)  -  FI2(J,Xl))} 
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C  =  (x2FI3(J,x1)  -  XlFI3(J,x2)  +  fi2(x2FIl (J,  xd>  -  x1FIl(J,  x2»> 

D  =  ~  {FI3(J,  x2)  -  FI3(JfXl)  +  h2(FI1(J,x2)  -  FIl(J,x1))} 

E  =  —  {x.  (FIO(J  +  1,  x.)  +  m2FI2(J  +  1,  x  ))  -  x  (FIO(J  +  1,  x  ) 

Ax  '*■  2  1  li  c* 

+  fi2  FI2(J  +  l,x2))} 


F  =  ~  {FIO(J  +  1,  x2)  -  FIO(J  +  1,  x^  +  h2(FI2(J  +  1,  x2>  -  FI2(J  +  1,  x^)} 

G  =  ^  {x2FI3(J  +  1,  xA)  -  XlFI3(J  +  1,  x2)  +  fi2(x2FIl(J  +  1,  x^ 

-  XlFIl(J  +  l,x2))> 

H  =  {FI3(J  +  l,x2)  -  FI3(J  +  1,  xA)  +  fi2(FIl(J  +  l,x2>  -  FI1(J  +  l.x^)} 

(30) 


with  FI0(J, 

Xi) 

=  31 

o. 

(xi) 

-h. 

(x.) 

J 

J 

FI2(J, 

Xi> 

=  312. 

<xi> 

- 1 

o. 

(x.) 

J 

J 

FI3(J , 

xi) 

II 

oo 

h-i 

(xi> 

-5I1 

,<xi> 

J 

J 

FI1  (J , 

xi) 

(x.) 

-5I3 

j  j 


A 


1 


3V 


m  c 
o 


2 
v . 

_ J_ 

Av. 

J 


2 

Ii±i 


m0c 


2  Av. 


j+1 


(31) 
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Computationally,  the  solution  to  the  integral  will  be  inaccurate  due  to 

figure  loss  when  a.A  <  0.01.  Under  this  condition,  one  finds  the  follow- 
ing  solution: 


-a  .(x  -x') 
e  ^  dx' 


3  r- 

~  ~fT  Tb  A2A  j<FI0(J>  x4)  +  M2FI2(J,  x1))^1  -  J  +  J  bJ 

■  ~7A  ^■',Ai[(1  ■  f  v)(FI3a  xi> +  <i2rii(j.x1))  + 1  d! 

+  '7AiiA3[(1  '  F  “jA)(FI0<J  +  1’X1>  +  i*2r'i2(J  +  l.Xj))  +  £f| 

Fh1  <32> 


Tb**  3 


(i  -  f 


(FI3(J  + 


x4)  + 


M  FI1(J  + 


1*x1)) 


DISCUSSION  OF  THE  NUMERICAL  APPROXIMATIONS 

In  Eq.  (7),  the  material  heating  rate  for  Compton  scattering  was 
derived.  It  w’ll  now  be  shown  that  numerically  the  heating  rate  calculated 
will  be  consistent  with  the  analytical  result.  Integrating  Eq.  (24)  over  n, 
one  finds 


~  V*  F.  =  (2B  -  E.)  -  n  E .  (1  -  2  y  . 

J  j  J  J  s  J  J 


.)  +  u  E.  fl 
J  8  J  l 


h  j+1 

+  - T  a  -  E. 

S  r-2  J+1 

me  1+ 1  ** 

o  J 
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Summing  on  j,  one  obtains 


-  V-  F  = 
c 


N  N  .  N  /  ,2  w2  .  \ 

EM  -i-V  E-L.E  -^-1 

*j  1  1  ‘4->  1  1  ‘m  j+1AVl  / 

J=1  J=1  O  J=1  J  J 


For  the  third  term  on  the  right-hand  side,  note  that 

E (Ej  ri;  -  v  s^)  -  *=,  *77  -  en+.  ^7  ,35) 

Now,  by  definition,  v  ^  =  0  and  =  0.  Thus,  the  calculated  heating  rate 

due  to  Compton  scattering  is 


M  c  Y'y  .E. 

8  /  V  J  J 

j=l 

Comparing  this  with  the  analytical  result,  i.  e.  , 


"s  - 2  /  vEw  dv  <37> 

me  */o 
o 

one  notes  that  the  above  sum  is  consistent  with  assuming  a  flat  spectrum 
over  the  various  groups.  Moreover,  in  the  limit  as  the  number  of  groups 
increases,  the  sum  approaches  the  analytical  result. 

A  computational  difficulty  encountered  with  the  present  fr  rmulation 
is  that  the  intensity  I.(n)  Gipends  on  the  solid -angle  moments  of  the  inten¬ 
sity  Ic.,  Ijj,  etc.  However,  if  these  quantities  were  known,  the  evaluation 
of  the  intensity  would  be  superfluous,  since  one  is  usually  concerned  with 
vi  idj.ng  heating  rates.  The  solution  to  the  transport  equation  gives  the 

intensity  at  time  n  +  1  in  terms  of  the  moment  quantities  at  time  n. 

J  • 

The  assumption  made  is  that  the  moment  quantities  at  time  n  are  close  to 
those  at  liir*'  n  +  1.  Computationally,  there  are  two  equivalent  ways  to 
achieve  this  result.  The  first  way,  and  the  least  desirable,  is  to  run  the 
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calculation  with  very  small  time  increments.  Now,  even  if  the  moment 
quantities  are  rapidly  changing,  the  errors  involved  are  proportional  to 
the  time  step.  After  a  number  of  cycles  in  which  the  solution  is  constant, 
the  moment  quantities  will  also  converge.  A  second  way  to  guarantee  that 
the  moment  quantities  are  consistent  with  the  transport  equation  is  to  iterate 
on  these  quantities.  A  test  can  be  made  to  see  if  the  values  at  time  n  +  1 
are  different  from  those  at  time  n.  If  differences  are  detected,  the  complete 
transport  calculations  can  be  rerun  using  the  new,  updated,  moment  quan¬ 
tities.  This  scheme  is  presently  employed  in  the  Thomson  and  Compton 
scattering  subroutines.  To  calculate  the  number  of  iterations  required  for 
convergence,  consider  the  following  model  for  the  case  of  Thomson  scatter¬ 
ing,  e.  ,  y  -»  0.  For  this  case,  the  transport  equation  becomes 


dl 


n+ 1 


=  Pi  (B  -  In+1)  -  a  In+1  +  [(-  -  /)l"  +  <3/  -  1)1?]  (38) 


.n+  1 


dx 


16  ^s 


2.  ,n 
o 


If  spatial  homogeneity  is  assumed,  then 


fi 

Tn+1  1  .  a  3  s  r  2.  _n  .,2  .  n-, 

I  (n)  =  —  B  +  jg  —  [(3  -  p  )  IQ  +  (3p  -  1)  I2] 


where  u  =  u  +  u  . 

a  s 

To  find  l”+  *  and  l”+  * ,  integrate  over  dfi.  Thus, 

l"+1  =  + 

o  —  —  o 


(39) 


(40) 


and 


rn+l  _  i  !!»  r  +  t”  .  J_  Tn 

h  ~  3  “  B  +  TO  “  lo  +  TO  ~  h 

V  »  n 

Solving  these  recursion  equations,  one  finds  that 


(41) 


_n  _  _ 
I  =  2B 
o 


[■  •&)■] 


(42) 
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■*MSrH£)‘] 


From  the  form  of  these  equations,  one  can  conclude  that  the  convergence 

rate  is  controlled  by  the  ratio  n  / H  +  H  .  Thus,  in  the  interesting  situa- 

1  s  a  s 

tion  in  which  scattering  is  the  dominant  mechanism,  the  number  of  iterations 
required  to  achieve  a  given  accuracy  increases  as  the  amount  of  absorption 
decreases.  This  fact  should  be  kept  in  mind  when  employing  the  scattering 
code  in  regions  with  dominant  scattering. 

For  the  case  of  Compton  scattering,  consider  the  homogeneous 
transport  equation,  or 

0  =  (ia  (B  -  In+1)  -  Ms  l"+1  (1  -  2V>  +  M3  [(3  -  M2)  l"  +  (3(J2  -  1)  l"] 

-TZPrU 3  -  «2>  +  M<3«2  -  5)  i"  +  <3„2  -  1)  i"  +  0(3  -  5M2>  l"l 

lb  s  o  l  ^  J 

+  Jf-  H  yZ  [(3  -p2)ln  +  n(3n2  -5)ln  +  (3^2  -  1)1"+  f*(3  -  Sfx2)^] 
lo  s  3y  o  1  ^ 


1 

If  one  now  integrates  over  S-i  d/i,  one  finds 


a(y2in) 

*  C  =  2“a  B  +  "s  <4  -  3r)t"  +  Ks  —^r~ 


where  n  =  H  +  n  (1  -  2 y). 
cl  s 


Integrating  over  frequency,  one  finds 


+  >  (i  -  3r ,)  f  +  ^  1^7 1 

j  J  3  ^  m0c  L  j+i 


2 
v . 

n _ J_  jn 

o  . .  .  A  v  .  o. 
J+l  J  jJ 


where 


4.  =  **  +  (!  -  2rJ 

J  j  3 
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Since  I0^+ ^  =  0,  the  solution  to  the  last  equation  is 


(48) 

The  remaining  equations  can  be  solved  in  reverse  order.  What  is  signifi¬ 
cant  is  that  the  coefficient  that  determines  the  convergence  is  frequency  — 
dependent,  and,  moreover,  the  higher  the  frequency,  the  faster  the 
convergence,  provided  y  <  0.  2. 

Computationally,  the  iteration  scheme  has  been  developed  for  both 
the  Thomson  and  Compton  scattering  subroutines.  Presently,  the  options 
available  for  the  iteration  scheme  are  the  number  of  iterations,  an  accur¬ 
acy  criterion  to  determine  convergence,  and  an  extrapolation  switch  allows 
one  to  use  the  rate  of  convergence  to  extrapolate  to  find  the  desired  function, 

SPHERICAL  GEOMETRY 

In  spherical  geometry,  the  transport  equation  (1)  is  replaced  by 

=  <Bv  -  +  S  (49) 

where  x  is  now  a  coordinate  measuring  distance  along  a  characteristic  ray. 
In  the  treatment  of  the  scattering  terms,  the  only  difference  is  that  the  (Li's 
appearing  in  S(x)  must  be  replaced  by  an  average  n  =  (n  +  n  )/2,  where 
and  are  the  cosines  of  the  angles  of  the  characteristic  ray  with 
respect  to  the  normal  at  x^  and  x^,  respectively. 

EQUATIONS  OF  MOTION 

The  same  independent  coordinates  are  used  in  the  OUTPUT  code 
and  SPUTTER  code:  mass  m  and  time  t.  The  Lagrangian  mass 
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coordinate  m  is  defined  by 


m 


f  a  ral 

“'o 


p(r ',  t)  dr' 


where  p  is  the  density  and 


(50) 


!1  plane 
3  sphere 


This  coordinate  has  the  physical  units  of  mass /cm2  in  plane  geometry; 
whereas  in  spherical  geometry,  it  is  the  mass  interior  to  radius  r  divided 
by  4 it/ 3.  If  t  is  the  specific  volume,  the  equation  of  continuity  is  given  by 


dr 

dt 


x  _ ■(<*  -l)  _a_  (a-i  dr  \ 
9r  \  dt  ) 


(51) 


The  momentum  equation  can  be  written  as 


n  -  U  (or  -  1)  ... 

P  dt  -  9r  +  2r  ^  11  *  ’ zz  *  ” 33>  <52> 

where  u  =  dr/dt  and  (<r  )  is  the  symmetric  stress  tensor.  The  stress 
tensor  is  given  by 


<r. .  =  -P  6. .  -  P. . 

m  ij  j.j 


(53) 


where  is  the  material  pressure  including  artificial  viscosity,  and  P. 
is  the  radiation  pressure  tensor.  In  the  case  of  plane  geometry,  d  -  1 
and  the  equation  becomes 


cm  m  r 

p  dT  - - 3? -  <54> 

where  P^  is  the  radiation  pressure  in  the  r  direction. 

This  is  the  standard  equation  solved  in  the  SPUTTER  code.  However, 
the  SPUTTER  program  assumes  that  Pf  =  (1  /3)  a  04,  the  equilibrium  diffusion 
value.  This  assumption  is  not  made  in  the  OUTPUT  program;  instead,  the 
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radiation  pressure  for  a  zone  is  computed  as  the  second  angular  moment  of 

the  intensity.  Since  the  intensity  and  its  moments  are  computed  on  zone 

boundaries  r.,  the  radiation  pressure  in  the  zone  r.  <  r  <  r.  is  defined 
i  i  —  i+ 1 

as  the  arithmetic  mean 


P 


+  P 


(55) 


In  the  case  of  spherical  symmetry,  one  must  evaluate  or  and  cr  The 
radiation  pressure  tensor  is  given  by 


(P)  = 


dftnni(p) 


(56) 


where  p  is  the  cosine  of  the  angle  0  between  the  ray  ft  and  the  radius  vector 
r.  If  r  is  taken  as  a  polar  axis,  an  azimuthal  angle  (j>  can  be  introduced 
and  ft  can  be  expressed  as  a  column  vector 


cos  $ 
sin  <)> 


(57) 


The  dyadic  UU  is  then  obtained  by  postmulti plying  this  column  by  its  trans¬ 
pose,  which  gives 


.1  2tt 

<p  >■*/  dp  J  d$I(p) 


Fa  2 

iv  1  -  p  cos  p 


J7  2  . 

Vl  -  p  sin 


2  2  2  2 
p  cos  <f>  (1  -  p  )  cos  <f>  (1  -  p  )  cos  $  sin  $ 


J 1  -  p^  sin  <{>  (1  -  p^)  sin  $  cos  <p  (1  -  p^)  sin^  4> 


(58) 


On  evaluating  the  integrals,  one  obtains 


P..  =  0  i  4  j 
ij 


(59) 
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P 


11 


I(H)  dn 


(60) 


P  =  P 
22  33  2 


1  /  2 

"2  £  (!  -  M  )  I(M)  (61) 

Since  ^22  ^33  ~  ^  ^  tEr  ”  PH^  *  w^ere  the  radiation  energy  density, 

1 

Er  =  /  IdM  (62) 


Eq.  (52)  for  the  spherical  case  is 


P 


du 

dt 


9(P  +  P  ) 

m  r 

9r 


(63) 


where  P^  =  P^.  The  last  term  in  Eq.  (63)  is  in  some  cases  a  source  of 

numerical  noise,  particularly  at  small  radius  r.  Hence,  a  parameter  S4 

is  employed  in  the  code  such  that  in  the  "diffusion"  case,  P  /E  <  S4  a 

r  r  ' 

difference  representation  of  Eq.  (63)  is  used.  However,  in  the  "streaming" 
case,  P^/E^  >  S4,  one  can  rewrite  Eq.  (63)  as 

Q  p 

9u  _  m  1  9,2^.  1  , 

P  at  9r  2  9r  *V  ~  r  ^Pr  "  Er*  <64) 

r 

and  a  difference  equation  based  on  this  form  is  used. 

S4  should  be  assigned  on  the  basis  of  the  characteristics  of  the 
problem  being  solved;  a  typical  value  is  1/2. 


ENERGY  EQUATION 


The  equation  for  conservation  of  energy  is  given  by 


dE 


m 


dt 


'9E  "1 

+  T  +  V-  Fj  =  -(P  +  P  )  t+  -(-a  1} 

»-  9t  J  m  r  2r 


(3P  -  E  )  u  +  e  (65) 


where  E^  is  the  material  specific  internal  energy,  f  is  the  flux  of  radiation. 
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and  is  an  external  energy  source  rate  per  unit  mass.  The  standard 
s 

SPUTTER  code  takes  the  radiative  heatirg  rate  per  unit  mass,  e  ,  as 

r 

er  =  -(y.  F)  r  .  (66) 

However,  the  OUTPUT  code  includes  the  radiative  streaming  contribution, 

and  e  is  calculated  in  the  spherical  case  as 
r 

er  =  [-V  F+  ^-<3Pr  -  Er)  u]  t  .  (67) 

The  form  T(9Er/at)is  combined  with  dE  /dt,  so  that  Eq.  (65)  is  treated 
as  an  equation  for  the  rate  of  change  of  total  specific  energy.  The  differ¬ 
ence  equations  are  then  developed  as  in  the  standard  SPUTTER  code. 

The  energy  source  rates  eg  are  determined  oy  the  source  routines 
QUE8,  QUE9,  QUE10.  These  source  routines  are  described  briefly  in 
Appendix  I. 

After  determining  the  change  in  total  specific  energy  during  a  time 

interval  due  to  e  ,  e  ,  and  the  radiative  and  material  work  terms  as 
r  s 

shown  in  Eq.  (65),  the  material  temperature  is  advanced  by  inverting  the 

equation  of  sta.te  to  find  the  temperature  corresponding  to  the  new  values 

of  E  and  t . 
m 

In  order  to  avoid  excessive  restriction  of  the  time  step  during  the 
early  portion  of  a  calculation,  it  has  been  found  advisable  to  utilize  the 
equilibrium  diffusion  approximation 

4 

E  =  a  0 
r 

for  the  energy  density  of  the  radiation  field  in  the  energy  conservation 
equation.  This  approximation  is  valid  in  the  core,  where  most  of  the 
energy  exchange  between  the  field  and  the  material  occurs. 
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SECTION  HI 

OUTPUT  CODE  PROGRAMMING 


LOGIC  OF  THE  CODE 

The  two  basic  independent  variables  in  the  OUTPUT  code  are  mass 
and  time.  Each  of  these  continuous  variables  is  divided  into  discrete 
elements,  the  mass  into  an  array  of  zones  of  variable  size  M.  and  the  time 
into  a  series  of  time  steps  Atn.  The  properties  of  the  system  are  calcu¬ 
lated  for  all  zones  at  time  tn+\  from  given  values  at  time  tn.  There  are 
essentially  two  kinds  of  properties  which  define  the  system:  kinematic 
properties,  such  as  the  positions  and  velocities  R^  of  the  zone  boundaries 
and  thermodynamic  properties,  such  as  the  specific  volumes  i\,  the  tem¬ 
peratures  0.,  the  specific  internal  energies  E.,  the  material  pressures  P^, 
and  the  specific  heats  at  constant  volume  C  .  A  specification  of  M. ,  R.,  t., 

V  111 

and  0^  completely  defines  the  system  at  any  given  time,  assuming  that  local 
thermodynamic  equilibrium  prevails  throughout  the  system.  All  kinematic 
quantities  are  functions  of  the  first  two  variables,  and  all  thermodynamic 
properties  are  functions  of  the  last  two.  The  heating  rates  in  each  zone-* 
specifically,  heating  from  an  external  source  (e  .)  and  heating  by  radiation 

S 1 

transport  within  the  system  (e  ,)--will  generally  depend  on  all  four 

r  l 

variables  and  the  time. 

The  program  is  divided  into  two  segments  (MP1  and  MP2)  to  reduce 

computer  storage  requirements.  Segment  MP1  sets  up  the  initial  conditions 

The  temperatures  0.,  masses  G.,  velocities  R.,  and  interface  positions  R. 

11  1  1 

for  each  zone  are  provided  by  card  input.  All  other  quantities  necessary 
for  complete  problem  specification  are  calculated  within  the  MP1  segment. 
This  segment  is  also  utilized  to  redefine  new  zones  during  the  course  of  a 
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calculation  if,  for  reasons  of  economy  or  greater  definition,  a  rezoning  of 
the  system  is  desired.  MP1  performs  the  required  peripheral  operations, 
such  as  reading  or  changing  dump  tapes  on  restarts  of  a  calculation. 

Segment  MP2  consists  of  two  loops  (see  Fig.  1).  The  main  loop 
represents  one  cycle,  representing  an  advance  in  time,  and  the  secondary 
loop  represents  a  radiation  subcycle.  The  division  of  the  main  loop  into 
separate  boxes  corresponds  to  the  way  various  phases  of  the  calculation 
are  parceled  out  to  subroutines,  called  in  turn  by  the  main  program  (MP2). 
The  labels  next  to  the  boxes  are  in  some  cases  the  names  of  the  subroutines; 


in  two  cases,  EOS  and  TEMPIT,  they  are  names  of  "sub -subroutines"  called 
by  the  subroutines.  Unlabeled  boxes  signify  computations  (or  logical 


decisions)  made  in  the  main  program  itself. 

The  cycle  begins  with  a  computation  of  the  time  increment  At 


.1+1/2 


The  time  increment  is  set  equal  to  the  minimum  of  (1)  DTMAX1,  DTMAX2, 


and  DTMAX3,  which  are  external  time  controls,  (2)  Courant  stability  con- 

"4*1  /  2  n_  l/2 

ditions  Atn  ,  and  (3)  nine-tenths  of  the  radiation  time  step  At  .  The 

c  K 

nine-tenths  used  for  the  radiation  time  calculation  is  introduced  to  prevent 


radiation  subcycling  due  to  small  changes  in  At^  from  one  cycle  to  the  next. 
DTR,  the  time  increment  used  by  those  subroutines  involved  in  the  sub¬ 
cycling  loop,  is  set  to  Atn+1^2.  The  hydrodynamics  portion  of  the  cycle  is 
entered  next,  where  the  kinematic  quantities  are  updated.  The  artificial 
viscosity  term  P2.,  which  enters  the  calculation  as  a  pressure  to  be  added 
to  the  material  pressure,  acts  as  a  shock -smoothing  term,  spreading  the 
shock  structure  over  three  zones.  The  next  two  phases  of  the  calculation 
compute  the  heat  term  AQ  in  the  equation  expressing  the  first  law  of  thermo 
dynamics,  AQ  =  AE  +  PAV.  The  heating  rate  due  to  an  external  source 

^n+1/2  .g  caicuiated  in  one  Qf  several  choices  of  sub -subroutines ,  depend - 
si 

ing  on  the  nature  of  the  source. 

The  heating  rate  due  to  radiation  (e"”*[*^)  is  calculated  in  the  RADTN 
section.  The  main  subroutine  of  this  section  calls  an  auxiliary  subroutine, 
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SEGMENT  J 
MPI  1 


SEGMENT 

MP2 


KAO  1  AT  1 0N 
SUBCYCi-E  I 


Figure  1.  The  OUTPUT  code:  Summary  Flow  Logic 
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KAPPA,  for  absorption  coefficients.  The  calculation  may  be  either  frequency 
independent  (grey)  or  frequency -dependent.  In  the  latter  case,  the  absorption 
coefficients  and  radiation  fluxes  are  computed  in.  each  of  a  desired  set  of 
frequency  groups,  and  the  fluxes  are  summed  up  to  obtain  the  total  flux  at 
each  boundary.  Absorption  coefficients  in  the  grey  case  are  Rosseland- 
averaged  opacities  and  are  computed  from  analytic  fits  to  the  numerical 
calculations  of  Stewart  and  Pyatt  (Ref.  6).  For  multifrequency  calculations, 
the  program  uses  a  table  of  group -averaged  opacities,  which  are  read  from 
a  data  tape  prepared  by  an  Auxiliary  program. 

ENCALC,  where  the  next  calculations  are  performed,  gathers 
the  heating  rates,  computes  the  work  done  by  each  zone  from  the  pressure 
and  the  rate  of  volume  change,  and  finds  the  increment  of  internal  energy 
from  the  first-law  equation.  One  then  obtains  the  corresponding  increment 
of  temperature  in  each  zone.  After  the  temperature  and  specific  volume 
are  updated,  the  equation  of  state  is  used  to  find  the  internal  energy  E,  the 
material  pressure  Pi,  and  the  two  partial  derivatives  of  E,  8E/80  and 
8E/0r.  The  difference  between  the  first-law  internal  energy  El.  and  the 
equation -of -state  energy  E^  is  compared  to  the  change  in  internal  energy 
AEL  as  a  check  on  the  accuracy  of  the  calculation.  If  the  comparison  shows 
they  do  not  agme  to  within  a  certain  specified  value  SI 9,  the  subroutine 
TEMPIT  uses  the  regula -falsi  and  interval  halving  iteration  methods  to  find 
a  temperature  for  which  the  equation  of  state  will  return  an  acceptable  E.. 

At  the  conclusion  of  the  energy  checks  in  ENCALC,  all  quantities  describ¬ 
ing  the  system  have  been  incremented  from  time  tn  to  tn+*.  The  main 
program  (MP2)  checks  the  time  step  DTR  to  determine  if  the  radiation  sub¬ 
routines  have  induced  subcycling.  If  radiation  stability  requires  subcycling, 
DTR  will  have  been  set  such  that  Atn+*^  is  an  even  multiple  of  DTR.  Sub¬ 
cycling  continues  until  the  sum  of  all  subcycling  time  steps  is  equal  to 


At 


n+1  /  2 


The  last  act  in  the  cycle  is  the  updating  of  the  time  tn  to  tn+*  and 
increasing  of  the  cycle  number  by  unity.  After  some  decisions  have  been 
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made  regarding  whether  to  print  the  information  for  this  cycle  and/or  to 
dump  common  on  a  binary  dump  tape  for  future  restarts,  control  is  passed 
to  the  beginning  of  the  loop  and  a  new  cycle  begins. 

In  table  I,  a  brief  definition  of  terms  used  in  figure  1  is  given  and 
the  variables  used  for  storage  in  the  code  itself  are  specified. 

FLOW  CHART  OF  RADIATION 

A  flow  chart  of  the  radiation  hierarchy  is  presented  in  figure  2 
through  6.  The  figures  that  show  the  various  s  i  ^routines  are  as  follows: 

RAD . Figure  2 

STRANS . Figure  3 

PTRANS . Figure  4 

SCAT . Figure  5 

STEP . Figure  6 

OUTPUT  CODE  GLOSSARY 

This  section  contains  a  complete  list  of  th*  FORTRAN  variables 
appearing  in  several  subroutines  of  the  OUTPUT  code.  For  each  variable, 
a  brief  definition  or  description  is  given.  A  number  in  parentheses  super¬ 
script  to  a  variable  indicates  that  the  variable  has  been  defined  in  the  list 
of  another  subroutine,  as  follows: 

(1)  SCAT 

(2)  STEP 

(3)  STRANS 

(4)  PTRANS 

(5)  RAD 

Variables  appear  in  alphabetical  order  within  a  subroutine  list.  The  storage 
allocation- -Blank  Common,  a  name  common,  or  private  storage,  which 
is  used  only  within  the  subroutine- -is  also  given. 
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TABLE  I 


DEFINITION  OF  TERMS  USED  IN  FIGURE  1 


OUTPUT 


Term 


Code 


»  DTH2 

*  RDI A 

=  DTRMIN 

=  DTRMIN 

*  RU) 

■  RD(i) 

*  DELTAR(i 
=  A(i) 

*  VD(i) 

=  P2(i) 

=  SMLQ(i) 

=  ER(i) 

=  SV(i) 

*  PB(i) 

*  W(i) 

=  THETA(i) 

=  EI(i) 

*  E(i) 

*  Pl(i) 

*  CV(») 

=  PBl(i) 


_ Definition 

*  time  increment  for  cycle  loop 

=  maximum  time  step  for  Courant  stability 

*  maximum  time  step  for  radiation  stability 
for  current  cycle 

=  maximum  time  step  for  radiation  stability 
for  previous  cycle 

-  zone  boundary  positions  at  time  TH 

-  velocity  of  zone  boundaries 

*  R(i  *  i.  -  R(i) 

=  area  of  zone  (or  r^  *) 

*  rate  of  change  of  zone  volumes 

*  artificial  viscosity  pressure 

*  rate  of  energy  deposition  by  source 

r  rate  of  energy  deposition  by  radiation 

*  specific  volume  of  zone 

*  first -law  increment  of  energy  change 

-  change  in  temperature  during  cycle 
=  temperature  of  zone 

*  first -law  internal  energy 

=  equation -of -state  internal  energy 

*  equation -of -state  material  pressure 
=  specific  heat  at  constant  volume 

=  self-explanatory 


*  TH 


=  time 
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thick  o.a 


Figure  3.  STRANS(N,  M) 
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ySQDi  *SQOP 
HM Pd)  Y,JJ) 
JJ  JJ  I 


>>  ««- if  i  if  »(«►  it)  ; 


ERROR  EX  1 1 
SI  lb  0087 


YSQOP  -X(KK) 

FHU  YSQOP 
K  KK* IH- I6X*2 
TCMP(5)  YSQOP- YSQ01 


C(  I6XPI  H»C  JJ1 


- ■© 


JJ  JJ*I 

KK  KK-iriS(X(KK*l))*2 


Cl  Cl*0. 2S*C( l*X) 


I  I6XPI  I 

rs  o.o 

1*1  I 


ERROR  EXIT 

SI  lb. 0171 


Ttc(  I  )|«  I0-,P 


V2(  I  )  X6(  I ) 


ri  lot  in*  i  > 


x8(  I  *  I )  X(X- 1  )/C(  I '  I  )*TG<  I'D 

lor  i 


Figure  3  (continued).  STRANS(N,  M) 
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Figure  3  (continued).  STRANS(N,  M) 
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I  - 1  -  I 
LDF=2 
K-K+  I 
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Figure  3  (continued).  STRANS(N.M) 
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237  j _ 

NN  1 

EST  1 . -H  ( I  I) 


CALL  SCAT 


Q-AMAX 1(0. , 1 .-FMUS/H(  I  -  1  ) 

F2=FS+F2*H4( I- I )+Q*(Y2( I )+TEMP( 1 5)+FREXP(  -TEMP(  1  ) 
+TEMP(2))*(-TEMP( 15)+TEMP( 13)*( 1 . -TEMP( 2 ) ) ) 
-H4( I -  1 )*{ Y2( 1-1 )  +  TEMP( 13))) 


FNU-F2  FM{ I ) 

FNL=SUMX4( 1 ) -SUMX3( I ) 

FXM=OX(  I ) -  X ( K ) 

X2( I )=X2( I )+((X(K)+X(K)+OX(  I ))* 
FNU+(OX( I )+0X( I )+X(  K) )* 
FNL )*FXM 


TH I CK= 

THI CK+( (X(K)+X(K)+ 

0X( I ) )*F2+( 0X(  I )  + 

0X( I )+X(K))*SUMX4(  I )) 
*(0X( I )-X(K) ) 


1= I TUEE 


EPS  I >Y( JJ ) 


PS l<TEHP( 9 


TH 1 CK=TH I CK+( ( XTUBE+XTUBE 
+0X( I ) )*F2+( 0X( I ) 
+0X( I )+XTUBE )* 
SUMX4( 1 ))*(0X(  1 ) 
-XTUBE) 


Figure  3  (continued).  STRANS(N,  M) 
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Figure  3  (continued).  STRANS(N,  M) 
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Figure  4.  PTRANS 
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X8( I )  TG( I )*RR( NMU) 
11=1-1 
12  I 

R I  C(  I-  I  ) 

R2  C(  I  ) 

IZN  l-l 
TGI  X8( I  -  I  ) 

TG2  X8( I  ) 


CALL 

STEP 

260  , 

r 

SUMX3(I)F2 

*L  Y2( I )-X6( I ) 


TEMP( I )-H2( l-l )/RR(NHU) 

H4( l-l  )  =  FREXP(-TEMP( I ) -TEMP( I ) ) 
F2  F 2 (  l-l  ) 


Figure  4  (continued).  PTRANS 
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Figure  4  (continued).  PTRANS 
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TEMP( I )  H2( I )/RR(NMU) 

HM  I  )  FREXP(-TEMP(  I  )-TEMP(  I  )) 
F  2  F2*HM  I  ) 


SUMXUf I )  F2 

X2(  I  )  X 2 ( I )-(F2-SUMX3(  I ))*RR(NGS) 

RHO( I )  RH0( I ) < ( F2+SUMX3( I ) )*RR( NGS ) /RR( NMU ) 

PR(  I  )  PP.(  I  )i (F2«SUMX3(  I  )  )*RR(  NGS  )*RR(  NMU) 

FL( I  )  X2( I ) 

TR( I  )- TR( I )-(F2-SUHX3( t ) ) *RR( NGS  )*RR( NMU)*RR( NMU ) 
I  (-  1 


l<IAX 


TR0BG-CT\ 

TROBGtSOMO 


DEBUG  PRINT 
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SQMU  0.5*(XP/(XP+YSQ)+XX/(XX+YSQ)) 
FMUX-SQRT( SQMU) 


FMUS-FMS(K) 

BB-F 1 0( 1 2 )-F 10( 1 1 )+SQMU*( F I  2 ( I  2 )-F 1 2(  II)) 


DD-F  I  3(  I  2  )-F  1 3(  M  )+SQMU*(FM(  1 2 )-F  1  1(11)) 


Figure  5.  SCAT 
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AA=R2*( F 1 0(  I  1 )+SQMU*F I 2(  II)) 

-R 1 *( F 1 0( I  2 )+SQMU*F I 2( 12)) 

FS=0 . 375*FMUS/(HD+HD)*( AA*EST+BB* 
( DX+R 1  *EST ) -BB*DX*EST / ( HD+HD) 


Figure  5  (continued).  SCAT 
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called  from  p 

AND  STRAUS 


Figure  6.  STEP 


49 


AFWL-TR-67  - 131,  Vol  HI 


SCAT 


AA 

A1 

A3 

BB 

CC 

CVB 

DD 

DELTAR 


DX 

EE 

EST 

FF 

FIO 


Following  the  notation  of  Eq.  (30),  AA  is  A  ■  Ax  as 
defined  there.  Private. 

This  is  defined  in  Eq.  (31).  It  is  evaluated  in  RAD. 

JIM  Common. 

This  is  defined  in  Eq.  (31).  It  is  evaluated  in  RAD. 

JIM  Cc  nmon. 

This  is  B  *  Ax  as  tcfined  in  Eq.  (30).  Private. 

This  is  C  •  Ax  as  defined  in  Eq.  (30).  Private. 

This  input  quantity,  the  negative  intensity  abort  flag, 
is  described  on  p.  87  of  this  report.  Blank  Common. 

This  is  D*  Ax  as  defined  in  Eq.  (30).  Private. 

Used  in  definition  of  DX  in  the  plane  case  only.  This 
variable  in  r[+^  -  r[*+*,  evaluated  in  HYDRO.  Since 
rn,  the  SPUTTER  variable  C,  is  used  elsewhere  in 
the  radiation  routines  to  define  coordinates,  it  is 
recommended  that  the  statement  two  lines  below 
statement  100  be  deleted  and  the  CO  TO  110  three 
lines  below  that  be  replaced  by  CO  TO  106.  This 
would  give  a  more  consistent,  cheaper  definition  of 
DX.  Blank  Common. 

The  distance  from  the  initial  to  the  final  point  of  the 
current  step  along  the  characteristic  ray,  given  in 
Eqs.  (29)  and  (30),  both  as  A  and  Ax.  Private. 

This  is  E  •  Ax  as  defined  in  Eq.  (30).  Private. 

This  is  1  -  e’^T,  where  At  is  the  optical  depth  of 
the  current  step.  Evaluated  in  STEP  and  kept  to 
avoid  redundant  calculation.  JIM  Common. 

This  is  F  •  Ax  as  defined  in  Eq.  (30).  Private 

This  is  the  mixture  of  moment  quantities  3I0  -  I2* 
as  defined  in  Eq.  (31).  The  last  character  of  the 
variable  is  a  zero.  Although  doubly  indexed  (frequency, 
zone)  in  Eq.  (31),  it  is  singly  indexed  (zone)  in  the 
OUTPUT  code.  Since  the  code  calculates  downward  in 
frequency,  the  variables  for  the  next  upper  (previous) 
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FIO  (continued)  frequency  are  available  in  FQO,  etc.  The  full  set  of 

FIO,  etc.  ,  over  frequency  is  stored  on  drum  or  disc, 
since  there  is  no  longer  room  in  core  storage  for  the 
doubly  indexed  array.  PALMER  Common. 

FI1  This  is  the  mixture  of  moment  quantities  3Ij  -  5I3, 

as  defined  in  Eq.  (31).  Used  only  in  Compton 
scattering.  PALMER  Common. 

FI2  This  is  the  mixture  of  moment  quantities  3l£  -  Io» 

as  defined  in  Eq.  (31).  PALMER  Common. 

FI3  This  is  t>e  mixture  of  moment  quantities  3I3  -  5Ij, 

as  defined  in  Eq.  (31).  FIO,  FI1,  FI2,  and  FI3 
are  all  evaluated  in  RAD.  PALMER  Common. 

FMS  This  zone  array  is  1/2  ps,  defined  in  Eq.  (5), 

evaluated  in  RAD,  using  SOLID(37),  an  input 
quantity,  for  K  .  Equivalenced  to  SMLA  in  Blank 
Common. 

FMU  This  is  a  linkage  variable  that  provides  information 

about  the  characteristic  line.  In  plane  geometry,  it 
is  simply  |p  |,  the  absolute  value  of  the  cosine  of 
the  angle  with  respect  to  the  normal.  In  spherical 
geometry,  however,  it  is  y^,  the  square  of  the  impact 
parameter,  evaluated  once  each  y-line  in  STRANS. 

An  approximate  average  value  for  p  is  calculated  in 
SCAT  in  this  case.  In  both  plane  and  spherical 
geometry,  the  derived  parameter  is  the  absolute 
value  of  the  cosine.  JIM  Common. 

FMUS  This  variable,  set  to  FMS(K)  early  in  SCAT,  is  multi¬ 

plied  by  GMP  before  being  used  in  STEP  to  calculate 
an  approximate  pa/(pa  +  Pg).  The  multiplication  by 
GMP  is  done  only  in  the  case  of  Compton  scattering. 

It  is  not  clear  that  this  variable  is  needed  as  linkage. 

A  slight  speed  gain  is  achieved  at  the  cost  of  clarity. 
JIM  Common. 

FMUX  This  is  the  angular  variable  p  defined  beneath 

Eq.  (1).  It  is  unfortunate  that  the  angular  variable 
p  can  be  so  easily  confused  with  the  photon  absorption 
and  scattering  coefficients  pa  and  ps,  but  it  appears 
to  be  th*t  common  notation  and  is  reflected  in  this 
computer  program.  Private. 
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FQ3 

FS 

FS1 

FS2 

FS3 

FS4 

GG 

GMP 

HD 
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This  is  the  mixture  of  moment  quantities  3Iq  ••  I2 
and  corresponds  to  the  FIO  (J  +  1.  x)  used  in  Eq.  (30). 
That  is,  it  is  the  FIO  zone  array  of  the  next 
higher  (previously  treated)  frequency  group.  For 
the  first  group,  these  quantities  are  set  zero  in  RAD 
and  are  not  used  in  SCAT.  It  should  be  noted  that  the 
zero  assumption  is  a  particularly  poor  one  as 
discussed  on  p.  82  of  this  report.  The  last  character 
of  FQO  is  a  zero,  and  the  array  is  in  PALMER 
Common. 

The  array  corresponding  to  FI1.  PALMER  Common. 
The  array  corresponding  to  FI2.  PALMER  Common. 
The  array  corresponding  to  FI3.  PALMER  Common. 

This  is  the  scattering  intensity,  the  "result"  of 
executing  the  SCAT  routine.  It  is  the  right-hand 
side  of  Eq.  (29).  JIM  Common. 

The  right-hand  side  of  Eq.  (29),  which  gives  the 
detailed  formulation  of  the  scattering  intensity, 
has  four  lines.  Except  for  the  factor  ps/p  •  3/l6, 

FS1  is  an  intermediate  term  representing  the  first 
line.  Private. 

Represents  the  second  line  of  the  same  equation. 
Private. 

Represents  the  third  line  of  the  same  equation. 
Private. 

Represents  the  fourth  line  of  the  same  equation. 
Private. 

This  is  G  •  Ax  as  defined  in  Eq.  (30).  Private 

This  is  1  -  2y,  mentioned  on  p.  82  of  this  report. 

It  appears  in  Eqs.  (19)  ff.  JIM  Common. 

This  is  1/2  KpAx,  where  Ax  is  the  geometrical 
length  of  the  current  step  along  the  characteristic 
ray,  p  is  the  density,  and  <  is  the  photon  coefficient 
<a  +  <8>  Thus,  HD,  evaluated  in  PTRANS  or 
STRANS  and  used  in  STEP  and  SCAT,  is  one-half 
the  optical  depth  of  the  step.  JIM  Common. 
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HH 

This  is  H  •  Ax  as  defined  in  Eq.  (30).  Private. 

HVB 

This  input  quantity,  the  negative  scattering  intensity 
debug  print  flag,  is  described  on  p.  H"7  of  this 
report.  Blank  Common. 

LALPIIA 

The  geometry  flag  (1  =  plane.  3  =  sphere).  Used  in 
SCAT  to  obtain  FMUX  and  SQMU,  given  FMU. 

Blank  Common. 

IHNU 

The  frequency  group  index,  used  in  Compton  scat¬ 
tering  to  branch  to  simpler  coding  for  the  first 
frequency  group.  L.INDL.Y  Common. 

IMHAD 

A  divide  check  abort  flag.  Private. 

It 

The  index  of  the  left-hand  boundary  of  the  current 
step.  Evaluated  in  PTRANS  or  STRANS,  used  in 

STEP  and  SCAT.  JIM  Common. 

12 

The  corresponding  index  of  the  right-hand  boundary. 
JIM  Common. 

K 

The  zone  index  of  the  current  step,  naturally  the 
lesser  of  11  and  12  provided  that  the  characteristic 
ray  at  closest  approach  always  is  tangent  to  a  zone 
boundary,  as  it  is  for  the  current  standard  SPUTTER 
and  the  OUTPUT  code.  Replacing  K  with  IZN 
(see  STEP)  would  remove  this  as  a  necessary  con¬ 
dition,  rendering  SCAT  safely  generalizable.  Frivate. 

NN 

This  is  a  thick-thin  flag  set  in  STEP  to  allow  SCAT 
to  execute  either  Eq.  (29)  or  Eq.  (32),  whichever 
is  appropriate.  JIM  Common. 

R 1 

The  x-position  of  the  left  side  of  the  step,  not  the 
radial  position  in  spherical  geometry.  In  STRANS, 

R1  and  R2  are  evaluated  directly.  In  PTRANS,  R1 
and  R2  are  set  to  the  slab  coordinates  and  then 
adjusted  for  slant  angle  in  SCAT.  JIM  Common. 

R2 

The  x-position  of  the  right  side  of  the  step.  JIM 
Common. 

SOLID(36) 

The  Compton  switch  described  on  p.  86  of  this  report. 
Blank  Common. 

SQMU 

where  p  is  given  by  the  variable  FMUX.  Private. 

53 


AFWL-TR-67-131,  Vol  III 


SI 

TERM2 


The  SPUTTER  error  flag.  See  pp.  88-91  of  this 
report.  Blank  Common. 

This  is  an  intermediate  quantity 


-or.  A 


or. 

1 


1 


-a.  A 

e  l 


2 

a. 

i 


TRDBG 


XP 

XX 

YSQ 


appearing  four  times  in  Eq.  (29).  Private 

This  quantity,  equivalenced  to  AC03T4  in  Blank 
Common,  is  the  transport  debug  print  flag.  Zero 
for  normal  operation  and  no  print,  non-zero  for 
transport  debug  print.  It  is  changed  in  SCAT  to 
trigger  a  print  and  then  turned  back  in  PTRANS  or 
STRANS  to  forestall  more  prints,  if  HVB  is  set  and 
a  negative  intensity  is  encountered. 

This  is  Rl**2,  used  to  find  a  p  in  the  spherical  case. 
Private. 

This  is  R2**2,  used  to  find  a  p  in  the  spherical  case. 
Private. 

This  is  the  square  of  the  impact  parameter,  used  to 
find  p  in  the  spherical  case.  Private. 


STEP 


EST 


(1) 


FMUS 

FS(1) 

F2 


(1) 


H 


HD<1) 


This  is  the  intensity  on  the  right  side  of  the  step, 
the  "result"  of  executing  the  STEP  routine.  It  appears 
as  Ij(x£)  on  the  left  side  of  Eq.  (27).  JIM  Common. 

This  is  a  zone  array  of  icp  =  n'a  +  Ps»  equivalenced  to 
BIGB,  evaluated  in  RAD,  and  used  in  the  formation 
of  Q.  Blank  Common. 
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H4 


IZN 


II 


(1) 

.<*> 


12' 
LDF 


LRI 


NN 

NN1 


(1) 


Q 


TGI 


TG2 


-T'u-  /■  -1/ 2At 

This  is  a  zone  array  of  e  ,  where  HD 

(see  SCAT)  is  1/2 At.  It  is  formed  in  STEP  if  one 

is  proceeding  inward  in  spherical  geometry  or 

forward  in  slab  geometry  and  is  available  in  the 

reverse  case.  It  is  equivalenced  to  SMLH  in  Blank 

Common. 

This  is  the  index  of  the  zone  being  traversed  in  the 
current  step  along  the  characteristic  ray.  Evaluated 
in  PTRANS  or  STRANS,  used  in  STEP.  JIM  Common. 


In  subsection  2.  1.  5  of  reference  2,  the  three  initial 
boundary  conditions  for  Ij.j  (initial  value  of  F2)  are 
described.  For  the  first  two  of  these,  F2  is  defined 
in  PTRANS  or  STRANS,  and  for  the  general  case, 

F2  is  left  over  from  the  previous  step.  However, 
for  the  third  case,  diffusion,  the  initial  intensity  is 
given  by  Eq.  (2.  19)  of  reference  2,  and  this  is  executed 
in  STEP.  If  LDF  is  1,  the  diffusion  boundary  condition 
is  applied.  If  LDF  is  2,  F2  is  assumed  to  be  properly 
initialized.  LDF,  in  JIM  Common,  is  evaluated  in 
PTRANS  or  STRANS. 

This  is  the  left-right  index,  used  to  decide  whether 
to  evaluate  H4.  It  is  set  in  STRANS  or  PTRANS. 

JIM  Common. 


This  is  NN  +  1,  set  to  allow  a  computed  GO  TO  on 
the  thick-thin  flag.  A  code  reform  would  increase  NN 
by  1  in  the  several  places  in  PTRANS  and  STRANS 
where  it  is  set,  and  would  eliminate  the  need  for  a 
second  variable.  Private. 

This  is,  or  should  be,  Ma/(Ma  +  Ms).  In  the  current, 
rather  crude  calculation  of  this  quantity,  Q  is  set 
zero  in  case  the  value  should  go  negative.  Private. 

This  is  the  slant  source  gradient  along  the  charac¬ 
teristic  ray,  evaluated  at  the  left  side  of  the  current 
step,  Rl.  This  quantity  appears  as  (0B/9h)|i_j 
in  Eq.  (2.  19)  of  reference  2.  JIM  Common. 

This  is  the  corresponding  quantity  evaluated  at  the 
right  side,  R2.  JIM  Common. 
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X6 

This  is  a  zone  array  of  the  source  Bj  in  Eq.  (24). 
evaluated  at  the  zone  center.  Calculated  in  RAD. 
Blank  Common. 

Y2 

This  is  a  zone  array  of  the  source  evaluated  at  the 
zone  boundary  according  to  criteria  discussed  in 
subsections  3.  2  and  5.  1.  3  of  reference  2  (see  also 
the  model  in  subsection  2.  1.  1  of  reference  2).  Equi- 
valenced  to  X5  in  Blank  Common,  evaluated  in  RAD, 
and  adjusted  in  STRANS  if  TG  (see  STRANS)  is  zero. 

STRANS 

Variables  defined  in  the  STEP  or  SCAT  lists  are  given  first. 

DELTAR(1) 

I2(1> 

EST(1) 

ldf(2) 

FMU(1) 

lri<2) 

FMUS(1) 

NN(1) 

FS(1) 

Rl(1) 

F2(2) 

R2(1) 

h(2) 

si(1) 

HD(1) 

tgi(2) 

H4<2) 

TG2(2) 

IALPHA(1) 

TRDBG(1) 

IHNU(1) 

X6<2> 

izn<2) 

II*1* 

Y2<2) 

ALPHA 

The  geometry  indicator  in  real  form  (see  IALPHA^V 
SPUTTER  has  both  real  and  integer  forms  for  this 
variable.  Blank  Common. 

C 

The  "old"  space  variable,  r”,  used  throughout  the 
radiation  codes.  Blank  Common. 

CNT1 

The  updated  cycle  number,  evaluated  only  if  a 
transport  debug  print  is  called.  Private. 
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CSQD 

Cl 

DHNU 

EPSI 

FL 

FLX 

FM 

FM1 

FNL 

FNU 


Evaluated  in  RAD  and  used  there  and  in  STRANS. 
this  is  a  zone  array  of  the  square  of  the  coordinate. 

and  is  provided  to  save  multiplications  within 
irequently  executed  loops.  It  probably  saves 
relatively  little  time  and  can  be  considered  one  .1 
the  more  expendable  arrays.  Equivalenced  to  CR  TO 

in  Blank  Common. 

For  LAX  >  1.  there  is  an  interior  solid  or  d.ffusion 
region.  Even  :f  this  consists  of  many  zones,  one 
requires,  nevertheless,  only  a  few  y-lines.  As  stated 
in  subsection  2.2.2  of  reference  2.  "Ha  diffusion  region 
having  an  outer  boundary  rD  exists  inside  the  trans¬ 
port  region,  y-lines  are  placed  as  near  as  P°«8ille 
to  0.5  rD,  0.75  rD,  and  rD  penetrating  the  diffus.on 
region.  "  Ct  is  set  first  to  0.  5  rD  and  then  to 
0.  75  rp  to  provide  this  placement.  Private. 

The  width,  in  eV.  of  the  current  frequency  gr°uP_ 

Set  in  STRANS  and  it  is  probably  not  used.  LIND 

Common. 

Radius  of  OUTPUT  sample  tube.  Blank  Common. 

A  separate  array  of  the  first  moment  of  the  intensity, 
f1  .  Ipdp,  normalized  differently  from  X2  and  used 
in\he  evaluation  of  the  scattering  moment  quantities. 
Equivalenced  to  SMLB  in  Blank  Common. 

An  intermediate  quantity,  I.  +  1+  along  the  previous 
y-line,  used  in  calculating  the  intensity  moments. 
Private. 


The  array  of  I_  along  the  current  y-line.  Four 
intensities  are  required  to  calculate  the  moment 
quantities  for  a  particular  zone  boundary  and  y-band. 
One  can  be  used  immediately  after  being  calculated, 
the  others  have  to  be  available  in  zone  array  storage. 
Equivalenced  to  ER  in  Blank  Common. 

The  intermediate  quantity  (I+  +  I_)  along  the  current 
y-line  minus  (I+  +  I_)  along  the  previous  y-lme. 
Private. 

The  intermediate  quantity  (I+  -  I  )  along  the  previous 
y-line.  Private. 

The  intermediate  quantity  (I,  '.)  along  the  current 

y-line.  Private. 
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FP 

FPL 

FSM 

FSP 

FU 

FXM 

FXP 

FXP3 

GL 

HNU 

HNUP 

H2 


I 

IAX 


Evaluated  and  used  in  the  'top  slice  '  section,  this 
intermediate  quantity  is  I_  +  1+  +  lj.  where  Ij  is  an 
interpolated  value  at  the  top  of  the  arc.  See  subsections 
2.  3.  2  and  5.  2.  5  of  reference  2.  Private. 

This  is  2(1  +  I+)  +  I  .  See  discussion  of  FP.  Private. 

The  zone  array  of  scattering  intensity  on  the  inward 
sweep.  Stored  for  display  in  the  debug  print.  Equiva- 
lenced  to  SMLD  in  Blank  Common. 

The  corresponding  array  of  scattering  intensity  for 
the  outward  sweep.  Equivalenced  to  SMLE  in  Blank 
Common. 


I  .  See  discussion  of  FP.  Private. 

T 

On  the  zone  boundary,  the  x  of  the  previous  y-line 
minus  the  x  on  the  current  y-line.  Private. 


On  the  zone  boundary,  the  x  of  the  previous  y-line 
plus  the  x  on  the  current  y-line.  Private. 

The  cube  of  FXP,  used  twice  in  evaluating  the  third 
moment  of  the  intensity.  Private. 

If  positive,  there  is  a  blackbody  exterior  to  the 
radiation  region.  The  initial  intensity  is  set  accord 
ingly.  Blank  Common. 

The  frequency  (eV)  of  the  lower  limit  of  the  current 
frequency  group.  Set  to  iO’3  for  a  grey  problem. 
LINDLY  Common. 


The  frequency  (eV)  at  the  upper  limit  of  the  current 
frequency  group.  LINDLY  Common. 

Depending  on  SOLID(IO),  an  input  quantity,  H2  is 
a  zone  array  of  one -half  either  the  Planck  or  Rosseland 
optical  depth.  Planck  if  SOLID(IO)  is  zero;  otherwise, 
Rosseland.  Used  to  define  optical  depth  in  the  trans¬ 
port  routines.  Evaluated  in  RAD.  Equivalenced  to 
EC  in  Blank  Common. 


Generally  used  in  STRANS  to  denote  the  zone  or  zone- 
boundary  index.  Private. 

The  left  (interior)  zone  limit  of  the  current  transport 
subregion,  inside  of  which  may  lie  a  diffusion  region, 
an  interior  blackbody,  or  the  center.  Private,  but 
linked  to  RAD  by  the  first  argument  of  the  subroutine. 
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1AXP 

IAXP1 

IBX 

IBXP1 

IM 

IN 

IT 

ITUBE 

J 

JJ 

JJJ 

K 

KK 

KKK 


An  index  denoting  the  lower  limit  of  zone  boundaries 
for  which  a  top-slice  calculation  is  to  be  made. 
Private. 

The  lower  limit  of  zone  boundaries  to  be  treated  in 
the  transport  debug  print  for  a  given  y-line;  this  is 
the  maximum  of  LAX,  LAXP-1.  Private. 

The  right  (exterior)  zone  limit  of  the  current  trans¬ 
port  subregion.  Private,  but  linked  to  RAD  by  the 
second  argument. 

This  is  IBX  +  1  and  is  the  upper  zone -boundary  limit 
of  the  current  transport  subregion.  Private. 

The  right  (exterior)  zone  limit  of  the  whole  radiation 
region,  set  in  RAD.  LINDLY  Common. 

The  left  (interior)  zone  limit  of  the  whole  radiation 
region,  set  in  RAD.  LINDLY  Common. 

A  running  index  used  in  setting  up  y-Iines;  its 
function  is  probably  obsolete.  Private. 

Index  of  zone  boundary  at  which  OUTPUT  sample  tube 
is  affixed.  Set  to  LMDA(26),  the  input  quantity,  near 
the  beginning  of  STRANS.  Used  only  because  sub¬ 
scripted  subscripts  are  illegal  in  FORTRAN.  Private. 

Used  as  the  running  index  of  the  top-slice  DO  loop, 
where  I  is  s,  limit  of  the  loop.  Private. 

The  y-line  index.  Private. 

Set  to  JJ  throughout,  its  function  as  distinct  from  JJ 
is  to  be  found  in  the  coding  given  in  reference  2  (since 
deleted).  It  was  involved  in  a  y-line  skipping  pro¬ 
cedure,  now  prohibited  by  scattering  considerations. 

A  code  cleanup  would  remove  JJJ.  Private. 

This  is  the  index  for  the  variable  X.  Private. 

A  counter  updated  from  the  X  array  which  gives  a 
"master  index"  for  a  given  y-line.  Private. 

An  index  for  X  used  in  the  transport  debug  print. 
Private. 
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KOOOFX 


KX 

LMDA(26) 

NY 

OX 


PR 

Q 

RHO 

SOLID(18) 

SUMX3 

SUMX4 

TEMP(l) 


TEMP(2) 


A  dummy  argument  used  in  CALL  DVCHK,  analogous 
to  IMHAD(l).  When  codes  were  processed  from 
FORTRAN  II  to  FORTRAN  IV  by  SIFT,  the  dummy 
variable  KOOOFX  was  invented,  where  the  middle 
characters  were  zeros.  By  historical  accident,  the 
characters  in  this  variable  are  letter  O's.  A  code 
cleanup  would  change  this  to  KX.  Private. 

A  dummy  argument  used  in  CALL  DVCHK.  Private. 

The  input  quantity  that  defines  ITUBE.  Blank 
Common. 

r  > 

The  number  of  y-lines.  LINDLY  Common. 

A  zone  array  storing  X  for  the  previous  y-line. 

Since  all  the  X  are  available,  OX  could  be  dispensed 
with  if  an  index  analogous  to  K  but  for  the  previous 
y-line  were  defined.  Equivalenced  to  W  in  Blank 
Common. 


A  zone  array  for  the  second  moment  of  intensity, 

/  j  Ip  dp.  Used  in  calculating  the  scattering  moment 
quantities.  Equivalenced  to  X7  in  Blank  Common. 

(21 

Same  meaning  as  Q  ,  but  different  storage.  Private. 


A  zone  array  for  the  zeroth  moment  of  intensity, 

I  dp.  Used  in  calculating  the  scattering  moment 
quantities  and,  in  RAD  and  elsewhere,  as  radiation 
energy  density.  Blank  Common. 


The  current  cycle  number.  Blank  Common. 


A  zone  array  for  I_  along  the  previous  y-line.  See 
discussion  of  FM.  Equivalenced  to  CHIC  in  Blank 
Common. 


A  zone  array  for  1^  along  the  previous  y-line.  See 
discussion  of  FM.  Equivalenced  to  BC  in  Blank 
Common. 


In  SPUTTER,  the  TEMP  array  is  used  by  many  sub¬ 
routines  for  scratch  storage.  Liberal  use  of  it  was 
made  in  STRANS,  especially  for  "top-slice"  coding. 

(See  subsections  2.1.2,  2.3.2,  and  5.2.5  of  reference  2.) 
All  the  TEMP  variables  are  in  Blank  Common. 

TEMP(l)  is  used  to  give  half  the  optical  depth  of  a 
top  slice,  or  the  full  optical  depth  of  one  side  of  it. 

This  is  ^  j  2  (defined  in  subsection  2.1.2  of  reference  2). 
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TEMP(5) 

TEMP(6) 

TEMP(7) 

TEMP(9) 

TEMP(ll) 

TEMP(13) 

TEMP(15) 

TEMP(16) 

TG 


THICK 

TR 

X 


XS 

XSQ 


This  is  riBxP1  '  yf’  where  J  is  the  index  of  last 
y-line  used.  Intermediate  quantity  in  calculating 

intensity  moments  in  a  top-slice  calculation, 
x  of  a  point  on  the  previous  y-line. 

z 

The  corresponding  x  for  the  current  y-line.  Also 
used  for  an  entirely  different  purpose,  e-TEMPv  > 
in  a  top-slice  calculation. 

Used  as  the  y-value  of  the  last  y-line  treated,  which 
need  not  be  Y(JJ-l),  since  lines  may  be  skipped. 

This  is  r?  -  y?,  used  in  calculating  FU  in  a  top  slice. 

A  special  top-slice  source  gradient,  F,  defined  in 
Eq.  (2.  13),  subsection  2.  1.  2,  reference  2. 

G  defined  in  Eq.  (2.  13),  subsection  2.  1.  2,  reference  2. 


In  the  top-slice  thin  approximation, 
term  of  Eq.  (2.15),  subsection  2.  1. 


this  is  the  last 
2,  reference  2. 


The  source  gradient,  defined  in  RAD.  It  may  be  set  zero 
depending  on  conditions  discussed  in  subsection  5.  1.  3 
of  reference  2.  See  also  table  II  in  this  report.  This 
is  a  zone  array  equivalenced  to  V  in  Blank  Common. 

This  is  the  "OUTPUT-output,  "  in  gross  outward 
flux  down  a  tube  of  specified  radius  at  specified  zone 
boundary.  LINDLY  Common. 


A  zone  array  for  the  third  moment  of  intensity, 

J1  Ip3  dp.  Used  in  calculating  the  scattering  moment 
quantities.  Equivalenced  to  SMLC  in  Blank  Common. 

12 2 

This  is  an  array  of  all  the  values  of  Vr.  -  y.  for  all 
y-line s  set  up  early  in  RAD.  The  X  array  is  evaluated 
in  RAD,  outside  the  frequency  loop,  in  order  to  save 
taking  thousands  of  square  roots  within  the  frequency 
loop,  say,  in  STRANS.  For  each  y-line,  in  addition 
to  the  set  of  x  values,  there  are  stored  in  the  X  array 
the  number  of  x  values  and  the  negative  of  yz.  DAVIS 


Common. 


Ln  the  final  top-slice  calculation,  this  variable  is 

.2  Z  Used  to  calculate  an  initial  dif- 

rIBXPl+l  ”  rIBXPl  . 

Fnoinn  intens ltv.  Private. 


For  a  given  cell  boundary,  this  is  x^  for  the  previous 
y-line.  Used  as  an  intermediate  quantity  in  evaluating 
moments.  Private. 
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XTUBE 


X2 


X8 

Y 

YSQDP 

YSQD1 


/  2  2 

This  is  ^rixUBE  "  EPSI  ,  the  x-value  of  the  inter¬ 
section  of  the  OUTPUT  sample  tube  with  the  zone 
boundary  at  which  the  tube  is  affixed.  Private. 

This  is  the  first  moment  of  the  intensity  f  Ip  dp, 
normalized  before  exiting  STRANS  to  serve  as  the 
radiation  flux  for  the  calculation  of  heating  rates. 

Blank  Common. 

This  is  a  zone  array  of  the  slant  source  gradient, 

TG  •  x/r.  Equivalenced  to  X4  in  Blank  Common. 

This  is  the  array  of  values  of  y,  the  impact  parameter, 
for  y-lines.  Equivalenced  to  BIGA  in  Blank  Common. 

2 

This  is  convenient  storage  for  y  of  the  current  y-line. 
Private. 

2 

This  is  convenient  storage  for  y  of  the  previous  y- 
line.  Private. 


P TRANS 


Variables  defined  in  the  STEP,  SCAT,  or  STRANS  lists  are  given 

first. 


ALPHA*3* 

H2<3> 

kooofx*3* 

TGI*2* 

c(3) 

H4<2> 

ldf*2* 

TG2(2> 

dhnu*3) 

I<3> 

lri*2* 

tr(3> 

fl(3) 

LALPHA*1* 

PR*3* 

TRDBG*1* 

FMU(1) 

lax*3* 

rho*3* 

X2<3> 

FS(1) 

ibx*3) 

Rl*1* 

X6<2> 

fsm*3) 

ibxpi*3* 

R2*1* 

m 

00 

X 

fsp*3* 

im<3) 

SOLID(18)*3* 

Y2<2> 

F2*2) 

in*3* 

SUMX3*3* 

gl*3> 

IZN*2* 

(3) 

SUMX4'  ’ 

hnu*3) 

II*1* 

si*1* 

hnup*3* 

I2*1* 

TG*3* 

62 


AFWL-TR-67-131,  Vol  III 


IA 


ICX 

ICY 

IMP1 

INM1 

JJ 

JJJ 

LMDA(37) 

NGS 

NMU 

NY 

RR 


TEMP(l) 


The  left-hand  (interior)  zone  index  of  the  SPUTTER 
vapor  region.  Since  this  may  not  correspond  to  the 
left  limit  of  the  radiation  region,  IN  (defined  in  RAD) 
should  be  used  and  not  redefined  (perhaps  erroneously) 
in  PTRANS.  Code  revision  is  needed  here.  Blank 
Common. 

The  right-hand  zone  limit  of  region  with  source. 

Set  to  IM  in  RAD,  it  is  retained  solely  to  procrastinate 
on  cleanup  in  PTRANS.  DAVIS  Common. 

The  left-hand  zone  limit  of  region  with  source.  See 
ICX.  DAVIS  Common. 

(3) 

IM+1.  See  IMV  \  Private. 

IN-1.  See  IN*3*.  Private. 

The  index  of  a  characteristic  line,  analogous  to  the 
y-line  index  jj(3).  Maximum  legitimate  value  is  5. 
Private. 

JJ+1,  used  in  the  transport  debug  print.  Private. 

The  input  quantity  specifying  the  number  of  charac¬ 
teristic  lines  to  be  used  (a  maximum  of  6).  Blank 
Common. 

The  index  of  Gauss  weights.  See  RR.  Private. 

The  index  of  angles.  See  RR.  Private. 

The  upper  limit  to  JJ,  set  to  LMDA(37)-1.  LINDLY 
Common. 

The  plane  transport  calculation  is  a  scheme  of 
evaluating  intensities  along  characteristic  lines  and 
integrating  these  (forming  the  moments)  by  the 
"double  Gaussian"  method,  where  special  weighting 
quantities  corresponding  to  the  angular  intervals  are 
stored.  A  table  of  average  angles  and  corresponding 
Gauss  weights  for  2,  3,  4,  5,  and  6  angular  intervals 
is  stored  by  DATA  statement  in  RR  and  used  in  the 
finite  sum  formulation  in  the  code.  There  are  40 
entries.  Private. 

This  is  1/2  p/c  Ax,  one -half  the  slant  optical  depth, 
calculated  in  the  case  of  no  source,  an  option  now 
eliminated.  See  ICX,  ICY,  and  p.  79  of  this  report. 

A  code  cleanup  would  delete  reference  to  TEMP(l). 
Blank  Common. 
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RAD 


Variables  defined  in  SCAT,  STEP,  STRANS,  or  P TRANS  are  given 

first. 


Al“> 

FQ0(1) 

ibx(3) 

SOLID(36) 

A3(1> 

FQ1(1) 

icx(4) 

S1(1) 

c(3> 

FQ2(1) 

icy(4) 

tg(3) 

cnti(3) 

FQ3(1) 

IHNU(1) 

(3) 

THICK1  ' 

csqd(3) 

GMP(1) 

im(3) 

tr(3) 

dhnu(3) 

h<2) 

impi(4) 

x(3) 

FI0(1) 

hnu(3) 

in(3) 

X2(3) 

FIl^ 

hnup(3) 

inmi(4) 

X6<2) 

FIZ^ 

H2(3) 

kx<3) 

y(3) 

FI3(1) 

l(3) 

PR<3) 

y2(2) 

fl<3) 

IALPHA(1) 

rho(3) 

FMS(1) 

iax(3) 

SOLID(18)(3) 

A 


A1P 


Qf-1 

The  SPUTTER  area  term,  a r  ,  a  zone  array,  used 
in  calculating  the  radiation  flux  at  the  external  boundary 
for  either  diffusion  or  no  vapor.  Blank  Common. 


2 

This  is  the  intermediate  quantity  hv  j  /me 
Eq.  (31).  Used  in  forming  Al.  Private. 


C2Av, 


m 


BETA  The  quantity  hv/8,  often  represented  by  the  variable  u. 

In  this  case,  hv  is  the  minimum  photon  energy  for  the 
current  frequency  group.  Private. 


BE  TAP 


The  quantity  hv/0,  where  hv  is  the  maximum  photon 
energy  for  the  current  frequency  group.  Private. 


BLANK3  Used  in  radiation  supercycling.  If  the  time  step 

calculation  in  RAD  calls  for  supercycling,  BLANK3 
is  set  to  the  current  time  plus  whatever  is  allowed 
for  the  supercycle.  Blank  Common. 
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CAPAC 


CAPAR 


CNTMAX 

CPA 

CPB 

CPC 

CV 

DFB 

DHNUP 

DTH2 

DTR 


Kpianck'  evaluated  in  KAPPA  or  one  of  its  sub¬ 
routines  and  used  in  RAD.  CAPAC(150-152)  is 
reserved  for  special  input  quantities.  See  p.  86 
of  this  report.  Blank  Common. 


K  ,  evaluated  in  KAPPA  or  one  of  its  sub¬ 

routines  and  used  in  RAD.  CAPAR(  1 21 -1 50)  used 
for  up  to  1  5  frequencies  of  "OUT  PUT -output"  flux 
rates  and  fluxes  accumulated  over  time.  This  rather 
clumsy  storage  mechanism  sets  an  upper  limit  of 
120  zones  and  15  frequencies  for  problems  run  on 
the  OUTPUT  code. 


This  is  the  SPUTTER  cycle  limit  and  is  tested  so 
that,  assuming  one  wants  a  multifrequency  print  with 
the  regular  SPUTTER  print,  a  print  is  obtained  for 
the  last  cycle.  Blank  Common. 

This  is  the  Rosseland  K  with  scattering,  adjusted  for 
Compton  scattering  if  appropriate.  Used  in  forming 
the  optical  depth  arrays.  Private. 

This  is  the  Planck  K.  with  scattering,  used  in  forming 
the  H(2)  and  H2<3)  arrays  if  SOLID(IO)  is  zero. 
Private. 

This  is  the  Rosseland  ic  with  scattering,  not  adjusted 
for  Compton  scattering.  Private. 

This  is  the  array  of  Cy,  specific  heat,  calculated 
elsewhere  in  SPUTTER  and  used  in  RAD  to  formulate 
the  stability  time  step.  Blank  Common. 

The  portion  of  the  area  of  the  Planck  function, 
normalized  to  1,  occupied  by  the  current  frequency 
group  at  a  given  temperature.  Private. 

The  width  of  the  previous  (next  higher)  frequency 
group,  used  in  calculating  A3^ '.  Private. 

The  current  SPUTTER  time  step,  set  in  the  TDELT 
routine.  Blank  Common. 

The  time  step  that  governs  RAD.  This  is  usually  set 
to  DTH2  in  TDELT,  but  is  set  smaller  in  RAD  if 
subcycling  is  called  for,  such  that  the  SPUTTER 
master  time  step  is  an  integral  multiple  of  DTR. 
Blank  Common. 
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DTRMIN 


DTR1 


DTR2 

F 


EC 


EDITMF 


EK 


ELM 


EO 


ER 


Thr  actual  minimum  radiation  time  step  calculated 
in  RAD.  This  is  then  used  to  determine  whether 
subcycling  or  supercycling  is  necessary.  Blank 
Common. 

A  "running  minimum"  time  step,  set  so  that  at  the 
end  of  the  loop,  the  smallest  and  the  next-to-smallest 
time  step  can  be  saved.  Private. 

A  "running  second-smallest"  time  step,  corresponding 
to  DTR1  above.  Private. 

The  SPUTTER  zone  array  for  internal  energy  per 
unit  mass,  used  in  the  time  step  energy  accuracy 
calculation.  Blank  Common. 

This  is  the  heating  rate  due  to  conduction,  zeroed  out 
at  the  end  of  RAD  to  avoid  later  trouble.  Blank 
Common. 

The  multifrequency  edit  flag,  equivalenced  to  S12  in 
Blank  Common.  It  should  be  noted  that  one  sometimes 
wishes  to  get  "multifrequency"  prints  when  running 
grey  problems.  Some  of  the  intermediate  quantities 
printed  out  are  of  general  interest  and  value  in 
troubleshooting. 

This  array  is  used  to  accumulate  radiation  energy 
density  over  frequency,  serving  the  same  purpose  as 
the  old  variable  SUMRHO  (see  Ref.  2),  now  deleted. 
RHO<3)  is  set  to  EK  after  exit  from  the  frequency  loop. 
Blank  Common. 

This  is  a  special  array  of  internal  energy  in  a  "lambda 
region"  (see  Ref.  3).  It  is  used  in  RAD  to  form 
quickly  the  total  internal  energy  in  the  radiation 
region  for  use  in  the  time -step  calculation.  See 
WSB,  WSBB.  Blank  Common. 

A  special  storage  for  the  index  of  the  zone  which  has 
the  smallest  radiation  time  step.  Used  in  PRINT. 
Blank  Common. 

The  heating  rate  due  to  radiation  transfer.  While  the 
radiation  energy  density  and  radiation  pressure  are 
used  elsewhere  in  the  code,  and  the  flux  is  edited 
and  viewed  with  interest,  it  is  safe  to  say  that  calcu¬ 
lating  ER  is  the  basic  purpose  of  RAD  and  its  sub¬ 
routines.  Blank  Common. 
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FIOSV 

FI1SV 

FI3SV 

G 

GAMMA 

GL 


GR 

HCB 

HHTAX 

HNUP4 

HNUX 

HNU4 

H3 


Temporary  storage  for  FIO  while  testing  whether  to 
iterate.  Unfortunately,  the  third  character  is  a 
letter  "O,  "  not  a  zero.  Private. 

Temporary  storage  for  FI1  while  testing  whether  to 
iterate.  Private. 

Temporary  storage  for  FI3  while  testing  whether  to 
iterate.  Private. 

This  SPUTTER  array  of  mass  per  volume  factor  is 
used  in  converting  energy  per  unit  mass  to  energy 
preparatory  to  calculating  the  energy  accuracy  time 
step.  Blank  Common. 

This  is  the  intermediate  quantity  y  defined  beneath 
Eq.  (15).  Private. 

This  is  the  right  (exterior)  boundary  flag,  specifying 
blackbody  exterior  if  GL  =  1/2,  vacuum  otherwise. 
STRANS  and  PTRANS  initialize  a  blackbody  intensity 
for  any  positive  value  of  GL  (see  GL^)).  There  are 
historical  reasons  for  the  inconsistency,  but  it  is  not 
justified.  Blank  Common. 

Maximum  allowed  number  of  radiation  supercycles. 
Blank  Common. 

See  p.  87  of  this  report.  Blank  Common. 

This  is  2  Ka  y,  used  to  adjust  the  absorption  coef¬ 
ficient  for  Compton  scattering.  See  Eq.  (33). 

Private. 

The  fourth  power  of  the  upper  limit  of  photon  energy 
for  the  current  frequency  group.  Perhaps  it  is  not 
used  in  the  current  version  of  RAD.  Private. 

Set  to  the  minimum  of  HNUP^)  and  10^  to  avoid 
execution  of  Compton  scattering  at  invalid  frequencies. 
Used  in  forming  A3^).  Private. 

The  fourth  power  of  the  lower  limit  of  photon  energy 
for  the  current  frequency  group.  This,  like  HNUP4, 
may  be  expendable.  Private. 

This  is  1/2  p  /Cr  Ar,  where  Kr  is  the  local  Rosseland 
mean  absorption  coefficient  adjusted  for  scattering. 
Used  only  in  RAD.  The  array  H2^)  is  set  to  H3  if 
SOLID(IO)  is  nonzero.  Equivalenced  to  BR  in 
Blank  Common. 
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LA. 


IB 


IBM1 


ICXM1 


IDMX 


IJZILC 

IMN1 

IMN2 

INP1 

IQEM 

IR 


The  left-hand  (interior)  zone  limit  to  the  vapor  region. 
INP)  is  set  to  it  unconditionally  in  this  version  of 
RAD.  IN  can  take  on  other  values,  if  the  programmer 
wishes  to  confine  the  radiation  region  to  only  part  of 
the  vapor  (e.  g.  ,  the  part  in  local  thermodynamic 
equilibrium),  but  this  would  require  a  small  program¬ 
ming  change.  Blank  Common. 

The  right-hand  (exterior)  zone  boundary  limit  to  the 
vapor  region.  For  generality,  this  should  be  replaced 
by  IMPl^).  Blank  Common. 

This  is  IB-1,  the  right-hand  (exterior)  zone  limit  to 
the  vapor  region.  IMP)  set  unconditionally  to  IBM1 
in  this  version  of  RAD.  Blank  Common. 

(4) 

This  is  ICX  -1,  evaluated  as  a  separate  variable 
solely  for  use  as  the  upper  limit  of  a  DO  statement. 
Private. 

The  dimension  limit  for  the  X  array,  currently  4000. 
When  testing  an  index  against  a  dimension  limit  in  the 
body  of  a  computer  program,  it  is  good  practice  to 
have  this  a  variable  set  at  the  beginning  of  the  code 
to  facilitate  later  changes  in  the  size  of  the  array. 
Private. 

Purpose  unknown.  Private. 

This  is  the  index  of  the  zone  with  the  smallest 
radiation  time  step.  EO  is  set  to  IMN1.  Private. 

This  is  the  index  of  the  zone  with  the  second-smallest 
radiation  time  step.  Private. 

This  is  IN+1  defined  solely  to  serve  as  the  lower 
limit  of  a  DO  loop.  Private. 

The  index  of  the  zone  boundary  suffering  the  worst 
change  in  FIO.  Used  in  monitoring  the  scattering 
iteration.  Private. 

The  index  of  the  rightmost  (exterior)  zone  for  which 
one  wishes  to  calculate  radiation.  In  reference  2,  IR  is 
set  and  used,  but  not  discussed.  In  the  fireball  con¬ 
figuration,  it  was  desired  not  to  do  radiation  for  zones 
colder  than,  say,  0.  05  eV.  IR  was  set  to  the  index  of 
the  outermost  zone  warmer  than  that.  The  code  is 
now  in  the  rather  hazardous  situation  that  IR  is  set  to 
IM  if  one  does  scattering  or  has  a  blackbody  exterior. 
Otherwise,  it  is  not  evaluated  at  all.  This  should  be 
repaired.  Private. 
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J 

JDRUM 

JDRUMI 

JK 

K 

KK 

KKK 

KMAX 

K000FX 

K1 

LMDA(37) 

MAXLM 

NHNU 

NMU 


(3) 

A  y-line  index  while  the  X  array  is  being  formed. 
Also  used  as  a  zone -boundary  index  while  et. larging 
the  transport  subregions  by  five  mean  free  paths  on 
each  side.  Private. 

The  logical  unit,  either  25  or  26,  of  the  drum  being 
read  for  moment  quantities.  PALMER  Common. 

The  logical  unit,  either  26  or  25,  of  the  drum  on 
which  moment  quantities  are  being  written.  Private. 

The  y-line  index  advanced  while  y-lines  are  being 
formed.  Private. 

A  counter,  used  as  other  than  zero  only  if  more  than 
4000  entries  in  the  X  array  are  required  to  place  a 
y-line  every  zone.  The  code  will  successively  try 
to  place  a  y-line  every  (K+l)st  zone  until  K  reaches  10, 
at  which  point  the  code  aborts.  Private. 

A  zone-boundary  counter  advanced  as  the  X  array  is 
formed  for  a  given  y-line.  Private. 

A  special  index  to  insert  the  number  of  X  entries  for 
the  current  y-line  into  the  X  array.  Private. 

The  multifrequency  flag.  Zero,  grey;  nonzero, 
multifrequency.  This  is  a  standard  SPUTTER  input 
quantity.  Blank  Common. 

This  divide  check  flag  has  zeros,  contrasting  with 
KOOOFX*3'.  A  genuine  holdover  from  the  days  of 
SIFT.  Private. 

A  counter  to  skip  zones  so  that  a  y-line  is  drawn 
every  (K+l)st  zone.  See  K  above.  Private. 

(4) 

Same  as  LMDA(37)  ,  but  used  in  RAD  for  definition 
of  external  input  intensities,  a  feature  deleted  from 
the  OUTPUT  code.  (See  page  81  of  this  report.) 
Reference  to  LMDA(37)  should  be  removed  from  RAD. 
Blank  Common. 

The  number  of  lambda  regions.  Used  in  calculating 
WSB  from  ELM.  Blank  Common. 

The  number  of  frequency  groups,  specified  in  the 
OUTPUT  code  by  LMDA(36).  See  p.  86  of  this 
report.  LINDLY  Common. 

The  number  of  characteristic  rays  in  plane  geometry. 
Set  to  LMDA(37).  The  FORTRAN  statement  that  does 
this  should  be  removed.  Private. 
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NRAD 

NSMLR 

NY 

Q 

QD 

QE 

QEM 

QN 

QQ1 

G1 

Q3 

Q31 

Q37 

Q38 

RD 


The  number  of  radiation  subcycles,  set  at  the  end 
of  the  time -step  calculation  if  appropriate.  Abort 
if  NRAD  >  50.  Blank  Common. 

Set  to  1  at  the  beginning  of  RAD,  it  appears  never  to 
be  used  or  reset.  The  statement  should  be  removed. 
Blank  Common. 

The  number  of  y-lines  if  spherical  geometry. 

LINDLY  Comr.  .on. 

A  dummy  variable,  it  is  At  (optical  depth)  in  defining 
source  gradients  for  forced  diffusion  and  serves  as 
the  normalized  "OUTPUT-output"  flux.  Private. 

The  denominator  in  the  relative  difference  expression 
for  FIO,  the  iteration  test.  Private. 

The  relative  difference  of  FIO,  tested  against 
CAPAC(150).  See  p.  86  of  this  report.  Private. 

The  largest  of  the  QE's  .  Used  along  with  IQEM  to 
monitor  the  iteration.  Private. 

The  numerator  in  the  relative  difference  expression 
for  FIO,  the  iteration  test.  Private. 

This  is  pAr,  the  formulation  of  which  is  geometry- 

dependent.  Used  in  forming  optical  depths.  Private. 

4  4 

A  zone  array  of  8  ,  used  to  avoid  calculating  9  within 

the  frequency  loop.  Very  dispensable  if  one  is  tight 

for  storage.  Equivalenced  to  PB  in  Blank  Common. 

Integrated  optical  depth,  a  zone  array  used  only  in  the 
section  expanding  transport  subregions  by  five  mean 
free  oaths  on  each  side.  See  subsection  3.  2  of 
reference  2  and  p.  80  of  this  report.  Equivalenced 
to  GOFR  in  Blank  Common. 

A  running  integrated  optical  depth.  Quite  dispensable. 
Private. 

Zone  array  for  log  0,  used  in  linear-in-log  inter¬ 
polation  for  multifrequency  absorption  coefficients  in 
DIANA.  Equivalenced  to  CAR  in  Blank  Common. 

Zone  array  for  -log  p,  used  similarly.  Equivalenced 
to  CHIR  in  Blank  Common. 

The  SPUTTER  array  of  velocity,  used  in  computing 
the  radiation  work  term  portion  of  the  heating  rate. 
Blank  Common. 
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RDD 

SLUG 


SMLR 

SOLID(IO) 

SOLID(37) 

SUMX2 

SUMX3 

SUMX4 

SV 

TAUX 


TAX 

TD 

TELM(25) 

TELM(26) 

TELM{27) 

TELM(28) 

TELM(29) 


Used  to  store  radiation  energy  density  calculated  on 
the  previous  cycle.  Blank  Common. 

The  fraction  of  the  internal  energy  of  a  zone  allowed 
to  leak  out  (or  be  added;  the  latter  is  causing  diffi¬ 
culties)  of  a  zone  in  the  time  step  calculated  in  the 
energy  accuracy  criterion.  An  input  quantity, 
usually  set  to  0.  1.  Blank  Common. 

Radiation  pressure,  summed  over  frequency,  formed 
in  RAD,  used  in  HYDRO.  Blank  Common. 

The  Planck-Rosseland  switch.  Zero,  Rosseland; 
nonzero,  Planck.  A  standard  SPUTTER  input 
quantity.  Blank  Common. 

See  p.  86  of  this  report.  Blank  Common. 

The  sum  over  frequency  groups  of  X2^^.  X2  is  set 
to  SUMX2  at  the  end  of  RAD.  Equivalenced  to  CRTR 
in  Blank  Common. 

Same  as  SUMX3^.  Zeroed  in  RAD  for  no  good 
reason. 

/  3  v 

Same  as  SUMX4  .  Zeroed  in  RAD  for  no  good 
reason. 

The  specific  volume,  1/p,  a  regular  SPUTTER  zone 
array.  Used  in  forming  optical  depths.  Blank 
Common. 

See  the  discussion  of  SOLID(37)  on  p.  86  of  this 
report.  TAUX  is  added  to  the  absorption  coefficient, 
so  it  is  zero  if  SOLID(37)  is  negative;  otherwise  it 
assumes  the  value  of  SOLID(37).  Private. 

This  is  ZiCmlrn  c**.  See  HHTAX.  Private. 

°  e 

A  variable  set  in  MP2  as  a  print  flag.  Used  in  RAD 
to  make  the  multifrequency  print  coincide  with  the 
regular  SPUTTER  print.  Blank  Common. 

An  input  quantity  to  adjust  the  time  step  by  a  constant 
factor.  Blank  Common. 

Set  to  DTR1 .  Blank  Common. 

SettoIMNl.  Blank  Common. 

Set  to  DTR2.  Blank  Common. 

Set  to  IMN2.  Blank  Common. 
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TELM(30) 
TEMP(1 , 2,  3) 

TH 

THETA 

THETAK(103)T4 

THTAMX 

TSi 

T4 

WSB 

WSBB 

X3 

X4 

ZP1(18) 

ZZ 


(3) 

The  advanced  cycle  number,  making  CNT1 
redundant.  Blank  Common. 

Used  as  intermediate  quantities  in  the  time-step 
calculation.  Blank  Common. 

The  SPUTTER  variable  indicating  time.  Used  in 
evaluating  BLANK 3.  Blank  Common. 

The  zone  array  of  temperature  in  eV.  Blank  Common. 

See  p.  86  of  this  report.  Blank  Common. 

The  highest  temperature  in  the  problem,  formerly 
used  in  evaluating  IR.  Its  sole  purpose  now  is  to  by¬ 
pass  the  radiation  calculation  for  problems  colder 
than  0.  05  eV  throughout.  Private. 

Used  in  calculating  X  values  to  indicate  the  point  of 
closest  approach  if  negative,  or  x  if  positive. 

Private. 

The  scattering  moment  iteration  counter.  Compared 
with  CAPAC(152).  See  p.  86  of  this  report.  Private. 

The  total  internal  energy  in  the  problem,  used  in  the 
energy  accuracy  time -step  criterion  to  ignore  zones 
whose  internal  energy  is  less  than  0.  001  WSB. 

Private. 

The  internal  energy  of  a  zone  in  the  energy  accuracy 
time -step  calculation.  Private. 

An  array  of  flags  to  define  the  transport  and  diffusion 
subregions.  If  for  a  zone  X3  is  -1,  the  zone  is  in  a 
diffusion  region.  If  X3  =  0.  ,  the  zone  is  in  a  transport 
region.  Other  values  of  X3  are  nonsense.  Blank 
Common. 

Used  to  denote  y^  for  each  y  -line  formed.  Later 
zeroed  and  used  by  equivalence  in  PTRANS  and  STRANS. 
Blank  Common. 

Another  place  for  the  SPUTTER  time  step,  used  in 
calculating  NRAD  and  DTR  if  there  is  to  be  radiation 
subcycling.  Blank  Common. 

A  flag  in  the  scattering  moment  iteration  test.  If  any 
zone  requires  iteration,  the  flag  is  turned  on.  Off: 

ZZ  =  0.  On:  ZZ  =  1.  Private. 
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APPENDIX  I 

THE  OUTPUT  CODE  AS  A  MODIFICATION  OF  SPUTTER 


INTRODUCTION  AND  SUMMARY 

The  OUTPUT  code  is  a  version  of  SPUTTER  (Ref.  3)  that  is  adapted 
to  a  special  class  of  problems.  Radiation  transfer  is  especially  important 
in  determining  the  behavior  of  such  problems,  and  the  OUTPUT  code  differs 
from  SPUTTER  primarily  in  its  more  sophisticated  treatment  of  radiation 
transfer  and  in  the  deletion  of  space -consuming  portions  of  SPUTTER  that 
deal  with  matter  in  the  solid  state.  It  should  be  borne  in  mind  that  the 
OUTPUT  code  is  under  development  and  is  continually  being  changed.  Any 
description  of  it  will  therefore  rabidly  lose  accuracy  of  detail,  and  major 
changes  made  in  the  near  futura  may  go  unreported  for  some  time.  However, 
the  present  configuration  is  a  convenient  one  to  describe  thoroughly.  Since 
a  large  fraction  of  the  content  of  the  OUTPUT  code  has  been  described  in 
earlier  reports  (Refs.  2,  3),  much  of  the  material  presented  in  this 
appendix  pertains  to  changes  made  in  the  older  programs.  Three  areas  of 
the  OUTPUT  code  are  discussed:  (1)  changes  in  SPUTTER  subroutines, 
other  than  radiation  subroutines,  (2)  changes  in  the  radiation  routines, 
and  (3)  progress  in  treating  Compton  scattering.  Changes  now  in  progress 
include  input  quantities  whose  use  differs  from  their  use  in  standard 
SPUTTER  and  the  abort  indicators. 
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CHANGES  IN  SPUTTER  SUBROUTINES  OTHER  THAN 
RADIATION  SUBROUTINES 

Akered  Routines 

MP2 

This  routine  has  been  changed  to  eliminate  references  to  CNDCTN 
and  the  boil  codes,  which  have  been  deleted.  Another  change  eliminates 
division  by  BLANK1  when  it  is  zero.  This  change  has  also  been  incorporated 
in  the  standard  SPUTTER  code. 

HYDRO 

A  small  section  that  does  "dummy  hydro"  (sets  C  and  DELTAR  to 
their  appropriate  values,  but  makes  no  changes  in  radii  or  velocities)  has 
been  added.  This  section  is  executed  if  S4  is  negative.  The  option  is  very 
useful  when  one  wishes  to  observe  the  effects  of  radiation  transfer  in  a 
static  configuration.  Changes  to  delete  references  to  solid  material  regions 
and  permit  the  use  of  more  accurate  radiation  pressures  available  from 
the  OUTPUT  radiation  routines  are  now  under  development. 

EOS 

This  routine  has  been  changed  to  incorporate  the  actual  radiation 
pressure,  rather  than  an  equilibrium  diffusion  approximation.  Reference 
to  ZPART,  an  array  of  760  words  not  used  by  the  OUTPUT  code,  has  been 
deleted . 

ECALC 

Changes  to  eliminate  treatment  of  solids  and  improve  the  precision 
Of  the  source  treatment  are  under  development. 

RTAPE 

This  routine,  which  picks  up  the  desired  configuration  from  the 
SPUTTER  dump  tape,  has  been  modified  to  pick  up  additional  data  (moment 
quantities  and,  in  the  future,  intensities)  and  set  up  the  drum  storage  for  them. 


74 


AFWL-TR  67-131,  Vol  III 

WTAPE 

This  routine  does  the  write  operations  corresponding  to  RTAPE. 

Also,  on  initial  starts,  where  there  ara  no  data  to  pick  up,  tha  drum  storage 
is  set  up  and  appropriate  starting  values  are  written. 

KAPPA 

A  change  has  been  made  to  catch  division  by  zero  before  exit.  This 
may  become  standard. 

KAP6 

This  routine,  which  is  valuable  in  test  problems,  uses  the  THETAK 
array  to  define  the  frequency  table  and  a  corresponding  set  of  absorption 
coefficients  (independent  of  temperature  and  density)  without  using  a  DIANE 
tape.  It  is  not  available  in  the  standardSPUTTER  code. 

KAP12 

This  routine  gives  an  analytic  approximation  for  the  grey  absorption 
coefficient  of  uranium  as  a  function  of  temperature  and  density.  It  is  not 
available  in  the  standard  SPUTTER  code. 

QUE8 

This  source  routine  deposits  energy  (evaluates  SMLQ)  into  a  predeter 
mined  set  of  contiguous  zones,  the  energy  being  distributed  uniformly  over 
-mass  space."  The  rate  varies  stepwise  with  time.  The  RDK  array  is 
used  as  input  for  the  zone  limits,  the  time  cuts,  and  the  energy  deposition 

rates. 

QUE9 

This  source  routine  1.  similar  to  QUE8,  except  that  it  allow,  for 
several  (up  to  seven)  regions  or  sets  of  contiguous  rones,  each  of  which 
has  its  own  set  of  time  cuts  and  energy  deposition  rates.  RDK  storage 
limits  require  that  no  region  have  more  than  six  distinct  time  sections. 
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QUE10 

This  source  routine  is  like  QUE8  in  that  it  allows  only  one  region. 

But  instead  of  the  energy  source  being  distributed  uniformly,  it  is  distributed 
as  some  powei  of  the  space  variable,  the  exponent  being  determined  by 
values  of  the  energy  deposition  rate  specified  at  the  limits  of  the  region. 

DIVCHK 

This  is  a  machine-language  routine  which  maketi  a  report  each  time 
a  division  by  zero  is  made.  It  is  handy  to  have  if  one  still  wishes  to  abort 
the  run  when  such  a  division  occurs;  in  addition,  there  is  a  report  precisely 
indicating  where  the  division  occurred.  This  routine,  which  was  written 
by  the  Gulf  General  Atomic  systems  group,  is  not  generally  available  or 
widely  advertised,  because  it  carries  with  it  the  hazard  of  uncontrolled 
computer  behavior  should  the  routine  be  overlaid  by  other  coding  subse¬ 
quent  to  a  call  to  it.  The  OUTPUT  code  precludes  this  possibility. 

The  MAP 

All  large  programs  on  the  UNIV AC-1 108  make  use  of  the  MAP  (Memory 
Allocation  Processer)  to  fit  their  coding  into  the  available  storage  with 
appropriate  overlays.  The  SPUTTER  and  OUTPUT  codes  are  no  exception. 
The  OUTPUT  MAP  differs  from  the  SPUTTER  MAP  as  follows: 

1.  DIVCHK  is  explicitly  represented  at  the  independent  level  with 
no  overlay  possible.  (SPUTTER  does  not  have  DIVCHK  at  all. ) 

2.  RADTN  is  segmented  along  with  MP2,  allowing  an  overlay  with 
MP1,  rather  than  being  independent. 

3.  NAMEC  (a  name  common  block  used  only  in  MP1  and  its  sub¬ 
routines)  is  segmented  with  MP1 ,  so  as  to  allow  overlay  with 
MP2,  etc. 

4.  The  overlay  of  the  KAP  routines  has  been  deleted  because,  for 
reasons  that  are  not  now  clear,  it  does  not  function  properly. 

The  storage  penalty  this  causes  has  been  minimized. 
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5.  Several  USE  cards  are  provided  for  those  routines  bearing  the 
same  name  as  standard,  undeleted  SPUTTER  routines. 

Deleted  Routines 

The  standard  SPUTTER  subroutines  CNDCTN ,  BOIL,  and  CBOIL 
have  been  deleted,  as  have  references  to  them  in  MP2.  NONEQ  and  some 
other  subroutines  may  soon  also  be  deleted. 

Dummy  Routines 

It  has  been  convenient  in  several  instances  to  write  dummy  subroutines 
with  the  same  name  as  standard  SPUTTER  subroutines,  since  outright 
deletion  of  the  latter  would  require  extensive  changes  elsewhere  in  the  code. 
The  standard  subroutines  and  the  reasons  why  they  are  undesirable  are 
as  follows : 

1.  DRAD,  ERAD,  QUE4.  These  refer  to  a  642-word  array  not 
needed  by  the  OUTPUT  code. 

2.  QUE16,  NONEQ.  These  refer  to  a  760-word  array  not  used  by 
the  OUTPUT  code.  NONEQ,  furthermore,  has  nearly  300  words 
of  private  data  storage. 

3.  CMOL,  KAP5.  Both  have  considerable  private  data  storage. 

CHANGES  IN  RADIATION  ROUTINES 

Two  substantial  changes  in  program  organization  have  been  made  in 
the  past  few  months.  (1)  The  codes  PRAD  and  SRAD,  executed  for  plane 
and  spherical  geometry,  respectively,  have  been  replaced  by  one  code, 

RAD.  The  two  codes  were  over  90  percent  the  same,  line  for  line,  and 
considerable  duplication  had  taken  place  in  maintaining  them.  The  necessary 
allowances  for  geometry  were  incorporated,  and  the  codes  were  unified. 

This  change  has  been  made  both  in  the  standard  SPUTTER  and  the  OUTPUT 
codes.  (2)  In  PTRANS  and  STRANS,  the  coding  to  solve  the  transport 
equation  was  repeated  many  times  and  in  several  forms  to  allow  for  different 
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configurations.  (See  the  STRANS  program  listing  in  reference  2.  )  Consid¬ 
erable  duplication  of  effort  has  resulted  because  scattering  led  to  consider¬ 
able  changes  in  these  codes,  other  minor  changes  are  made  from  time  to 
time,  and  more  sophisticated  solutions  of  the  transport  equation  are  being 
coded.  The  advantages  of  solving  the  transport  equation  in  only  one  place 
in  the  code  became  more  apparent.  The  new  subroutine,  STEP,  solves  the 
transport  equation  in  general  form  for  one  increment  along  a  characteristic 
line.  Calls  to  STEP  have  been  incorporated  in  STRANS  and  PTRANS.  The 
data  block  COMMON/  JIM/ ,  originally  provided  for  linkage  between  the 
transport  routines  and  SCAT,  has  been  expanded  by  six  words  to  accommodate 
STEP.  The  call  hierarchy  of  the  radiation  routines  was  formerly  as  follows: 


The  new  hierarchy,  which  results  in  considerable  reduction  of  program 
storage  and  much  more  understandable  codes,  is  as  follows: 


f 


78 


AFWL-TR-67-131,  Vol  III 


STEP  has  been  added  only  in  the  OUTPUT  code. 

Another  change  made  in  both  the  standard  SPUTTER  and  the  OUTPUT 
versions  of  RAD  is  the  elimination  of  several  input  parameters.  The  deleted 
parameters  are  described  briefly  in  table  II  and  in  detail  in  reference  2. 
Some  of  the  parameters  listed  in  reference  2  were  assigned  different 
SPUTTER  variable  names  after  the  reference  was  issued.  The  more  recent 
names  are  also  given  in  table  II.  In  some  cases,  the  option  involving  the 
parameter  has  been  removed  altogether,  and  for  these  no  "built-in"  value 
is  given.  Instances  where  built-in  values  differ  from  the  suggestions  in 
reference  2  reflect  experience  in  running  problems. 

Two  rather  substantial  deletions  have  been  made  in  the  OUTPUT 
version  of  RAD.  (1)  ICX  and  ICY  have  been  eliminated  as  special  indices 
indicating  sourceless  subregions  of  the  radiation  region.  This  eliminates 
quite  a  bit  of  complicated  branching,  and  the  time  saved  by  doing 
simpler  calculations  in  sourceless  regions,  although  substantial  in  some 
configurations  run  on  standard  SPUTTER,  would  be  insignificant  in  most 
applications  of  the  OUTPUT  code.  (2)  The  multifrequency  merge  procedure 
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TABLE  II 

DELETED  VARIABLES 


Name  Used 
in  reference  2 

Recent 

name(s) 

Value 

suggested  in 
reference  2 

Built-in 

value 

Purpose 

CB* 

DELPRT 

0 

— 

Brightness  print  (option 
deleted) 

GA 

GA 

0.  33 

0.  333 

Source,  optical  depth 
gradient  criterion  (TG) 

GL 

GA,  GR, 
(0.333) 

0.  3 

Source,  MFP  gradient 
criterion  (y-lines, 
option  deleted) 

CMIN 

AC 

0.  3 

--(«) 

Minimum  depth  for  TG 
criterion  (option  deleted) 

AC03T4 

TA 

0.  1 

0.01 

Half-optical  depth  for 
thick-thin  transition 

S15 

SI  5 

1 

“  “  “ 

Restart  on  grey  calcu¬ 
lation,  not  needed  with 
current  DIANA 

TELM(37) 

TELM(37) 

0.005 

0.001 

Fraction  of  total  energy 
in  zone  for  time -step 
criteria 

CVB 

CVB 

0 

0.  5 

Select  y-lines 

HVB  • 

HVB 

5 

5 

Buffer  of  transport 
region  in  number  of  mean 
free  paths 

HCB 

HCB 

0.  1 

0. 1 

Diffusion  criterion 

Not  mentioned 

BOILB  = 
NTIMES 

-- 

50 

Subcycle  limit 

CB  is  currently  used  in  standard  SPUTTER  as  a  multifrequency  merge 
criterion,  replacing  the  constant  10.  0  in  reference  2.  The  OUTPUT  code 
has  no  frequency  merging. 
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has  been  taken  out.  Although  it  may  save  time  in  some  applications,  no 
provision  for  merging  has  been  made  in  the  scattering  coding.  The  variable 
CB,  of  course,  is  now  not  used  in  the  OUTPUT  code.  Another,  less  signi¬ 
ficant  feature  deleted  in  the  OUTPUT  code  is  the  provision  for  external 
nonthermal  radiation  intensities  as  an  energy  source  in  plane  geometry. 

A  major  addition  to  RAD  is  the  calculation  of  the  moment  quantities, 

used  as  scattering  source  terms  in  the  SCAT  routine,  first  reported  in 

reference  7.  An  iteration  procedure  to  obtain  better  values  of  the  moynent 

quantities  at  cycle  (n  +  1)  (the  scattering  equation  is  implicit  in  this  respect), 

described  in  section  1  has  been  incorporated.  The  FQO,  FQ1,  FQ2,  and  FQ3 

arrays  should  not  be  updated  inside  the  iteration  loop,  since  they  are  the 

moment  quantities  for  the  previous  frequency.  This  error  would  cause 

trouble  only  in  Compton  scattering.  The  updating  has  been  moved  outside 

the  iteration  loop,  and  the  scheme  now  works  well  for  both  Thomson  and 

Compton  scattering.  The  choice  of  three  words  at  the  end  of  the  CAPAC 

array  as  input  parameters  to  control  the  iteration  has  been  retained. 

These  are  described  in  "Input  Quantities"  of  this  appendix.  However,  the 

size  of  the  array  is  the  standard  SPUTTER  value  of  152. 

2  2 

The  X  array,  the  set  of  all  values  x. .  =  V  r.  -  y.  ,  is  calculated  early 

U  i  J 

in  RAD  to  avoid  taking  many  square  roots  within  the  frequency  loop.  In  ref¬ 
erence  2,  this  array  was  given  2400  words  of  essentially  private  data  storage. 
(This  would  allow  66  zones  if  a  y-line  were  drawn  at  each  boundary.)  In 
the  standard  SPUTTER  version  of  RAD,  the  X  array  is  stored  in  1064  words 
of  SPUTTER  Blank  Common,  allowing  for  41  zones  with  y-line  every  zone. 
Since  OUTPUT  calculations  will  have  many  zones  as  a  result  of  complex 
configurations,  and  since  accuracy  in  the  scattering  calculation  requires 
a  y-line  at  every  boundary,  the  private  storage  has  been  reinstated  in  the 
OUTPUT  code;  this  storage  is  4000  words,  allowing  for  86  zones.  The 
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scratch  area  in  SPUTTER  Blank  Common  made  available  by  this  change  has 
been  taken  up  by  intermediate  moment  quantities  and  scattering  parameters. 

Three  variables  used  in  the  Compton  scattering  calculation  are  depen¬ 
dent  only  on  frequency  and  not  on  position: 


1.  GMP  =  1  -  2y  ,  where  y 


1/  2(hv  +  hv+) 


2.  A1  = 


m  c  (hv  -  hv  ) 
e  + 


3.  A3  = 


m  c  (hv,  ,  -  hv.) 

e  TT  T 


Although  evaluated  in  SCAT,  they  should  be  calculated  only  once  per  fre¬ 
quency  in  ord^r  to  save  time.  This  is  done  in  RAD. 


PROGRESS  IN  TREATING  COMPTON  SCATTERING 


Satisfactory  results  have  been  obtained  for  a  test  problem  with  spherical 
geometry  analogous  to  the  test  problem  with  plane  geometry  described  in 
appendix  IV.  However,  some  interesting  difficulties  arose,  which  have  not 
yet  been  resolved.  At  high  frequency,  for  sufficiently  large  negative  dl/dv, 
where  I  may  be  intensity  or  some  moment  quantity  (these  usually  vary 
similarly  with  v),  the  code  will  calculate  a  negative  scattering  intensity. 

At  present,  the  code  sets  the  negative  intensity  to  zero  and  goes  on.  (There 
are  input  parameters  to  trigger  a  debug  print  or  abort,  or  both.)  The  large 
negative  dl/dv,  with  the  concomitant  negative  intensities,  has  appeared  in 
two  different  situations. 


First,  in  the  calculation  of  the  highest-frequency  group,  the  starting 
value  for  I  (v.)  is  zero.  This  results  in  the  appearance  of  negative  intensities, 
but  at  least  some  sort  of  radiation  field  description  is  achieved.  Two  schemes 
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have  been  proposed  for  improving  the  formulation  of  I  (v.).  The  better  one 

x  J 

will  soon  be  chosen  and  incorporated  in  the  code.  However,  this  case  of  the 
first  frequency  is  a  rather  artificial  way  of  arriving  at  large  negative  dl/dv. 

The  other  situation  arose  when  an  attempt  wac  made  to  refine  the 
frequency  interval.  The  result  was,  for  one  frequency  group,  a  bistable 
oscillation  in  the  iteration  procedure  for  obtaining  updated  moment  quantities . 
It  is  believed  that  it  arose  in  the  following  manner.  First,  given  zero 
starting  values  for  the  moment  quantities ,  the  code  had  a  positive  dl/dv  and 
calculated  scattering  intensities,  generating  moment  quantities  appropriate 
for  that  frequency.  Then  the  code  noted  that  an  iteration  was  necessary  and 


set  the  "old"  moment  quantities  to  the  "new"  ones.  (See  "Input  Quantities" 
in  this  appendix.  CAPAC(151)  was  0.  )  It  proceeded  to  do  Compton  sc*!* 
tering,  found  large  negative  dl/dv,  calculated  negative  intensities,  set 
them  to  zero,  generated  zero  moment  quantities  as  a  result,  iterated  again, 
and  at  the  third  pass  was  right  where  it  started.  While  this  may  not  be  an 
exact  description  of  what  happened,  it  is  probably  close  enough  to  indicate 
the  trouble  unambiguously.  The  "extrapolation  switch"  described  in 
section  II  of  this  volume  (CAPAC(151)  in  the  code)  could  easily  be  used  as 


an  interpolation  switch  by  assigning  to  it  a  value  between  0  and  -1.  Inter¬ 
polation  is  suggested  by  the  fact  that  the  first  "crack"  at  a  solution,  result¬ 
ing  in  large  negative  dl/dv,  may  have  been  an  overshoot.  This  idea  was 
tried  out  with  CAPAC(151)  =  -0.  5  and  proved  successful.  There  was  no 
convergence  difficulty  in  areas  of  negative  dl/dv.  However,  at  lower  fre¬ 
quencies  the  convergence,  while  monotonic,  was  discouragingly  slow.  This 
suggests  a  possible  frequency-dependent  extrapolation  switch. 

In  summary,  Compton  scattering  in  the  OUTPUT  code  is  at  present 
a  laboratciy  curiosity.  It  appears  to  work  well,  if  not  reliably,  in  an 
interesting  t^st  problem.  (It  takes  about  three  times  as  long  to  calculate 
as  Thomson  scattering.)  However,  this  tentative  state  should  change 
shortly  as  experience  is  acquired  in  using  Compton  scattering  in  production 
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problems.  It  should  be  emphasized  that  Thomson  scattering  has  been  used 
for  over  six  months  to  calculate  complex  problems,  and  a  number  of 
shortcomings,  which  appear  only  in  unforeseeable  configurations,  have 
been  found  and  overcome. 

CHANGES  IN  PROGRESS 

Several  areas  of  current  code  development  relevant  to  the  OUTPUT 
code  are  not  discussed  in  detail  in  this  report.  These  include  improvements 
in  the  nonequilibrium  radiation  diffusion  code  DRAD,  incorporation  of 
Compton  scattering  in  DRAD,  changes  in  the  energy  bookkeeping  (routines 
ECHK  and  PRINT),  and  modifications  to  provide  free  drum  input-output. 
Three  other  changes  in  the  program  are  as  follows: 

1.  Improved  source  interpolation  in  spherical  geometry.  The  current 

code  follows  the  original  STRANS  (Ref.  2)  logic  of  step-or-linear 

interpolation  of  the  source,  with  a  linear -quadratic  fit  across  the 

2 

"top  slice."  This  is  being  replaced  with  a  linear-in-r  interpola¬ 
tion  scheme  developed  by  J.  R.  Triplett  (Ref.  3).  The  option 
of  a  piecewise  constant  source,  as  described  in  reference  2,  is 

retained.  Each  "step"  along  a  y-line  is  divided  into  two  intervals 
2 

equal  m  r  to  conform  with  the  new  interpolation  scheme.  Although 
this  change  has  been  essentially  completely  checked  out,  it  is  not 
included  in  this  report. 

2.  The  Sampson  approximation  of  the  average  absorption  coefficient, 
where  K  -  (b  +  k _)/(b  +  k  )  *  K  and  b  varies  as  the  integrated 

K  p  p 

optical  depth,  appears  to  be  a  desirable  first  step  toward  a  more 
sophisticated  transmission  function  treatment  than  the  one  now 
being  used. 

3.  Saving  intensities.  Future  code  development  in  several  areas, 
e.g.,  retardation,  more  accurate  calculation  of  moment  quantities, 
and  improved  Compton  scattering  recipes,  will  require  the  storage 
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of  the  entire  set  of  intensities  calculated  at  cell-ray  intersections. 
This  change  also  was  competed  too  late  for  inclusion  in  the 
present  report.  _ 

jz  2 

For  each  frequency,  given  that  the  "x"  storage  (x,.=vr.  -  y^  )  for 
all  values  on  one  side  of  the  plane  of  symmetry  is  4000  words,  the  intensity 
store  will  require  8000  words  of  random  access  storage,  plus  8000  times 
an  upper  limit  to  the  number  of  frequencies  for  drum  storage.  This  require¬ 
ment  can  be  met,  but  not  economically  on  the  UNIVAC-1108.  (The  UNIVAC- 
1108  has  the  odd  feature  of  a  3/8-^ sec  fetch  from  opposite  bank  versus  a 
3/4-psec  fetch  from  same  bank,  so  that  it  pays  to  put  coding  and  data  in 
opposite  halves  of  the  "almost-random  access"  fast  storage.)  The  speed 
penalty  can  probably  be  minimized  so  as  to  be  negligible  on  long,  expensive 
problems  by  an  adroit  choice  of  what  data  are  to  be  kept  in  the  wrong  half 
of  the  store.  Other  problems  are  definition  of  the  appropriate  set  of  inten¬ 
sities  for  a  cell  boundary  treated  by  diffusion  and  definition  of  intensities 
for  y-lines  where  a  specific  calculation  is  not  made.  At  present,  the  OUTPUT 
code  sets  up  a  y-line  at  every  zone  boundary  and  calculates  intensities  along 
all  of  these.  However,  one  might  wish  to  run  a  problem  with  more  than 
86  zones,  the  maximum  possible  for  less  than  8000  intensities,  or  one 
might  wish  to  skip  y -lines  to  save  time. 

FORTRAN  LISTINGS 

Appendix  III  contains  FORTRAN  listings  for  the  principal  subroutines 
of  the  OUTPUT  code:  RAD,  PTRANS,  STRANS,  STEP,  SCAT,  QUE8, 

QUE9,  QUE10,  HYDRO,  RTAPE,  WTAPE,  and  the  MAP.  For  brevity, 
SPUTTER  blank  common,  which  is  used  in  all  the  subroutines,  is  listed 
only  in  RAD.  The  equivalence  table  used  in  RAD,  PTRANS,  STRANS, 
and  STEP  is  also  listed  only  in  RAD. 
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INPUT  QUANTITIES 


The  input  quantities  listed  below  are  (1)  parameters  used  in  the 
Compton  and  Thomson  scattering  treatment,  (2)  special  parameters  for  the 
"OUTPUT -output,  "  a  special  edit,  and  (3)  various  quantities  used  by  the 
nonstandard  source  and  opacity  routines. 


THETAK(103) 

SOLID(36) 

SOLED(37) 


LMDA(36) 


CAPAC(150) 

CAPAC(151) 

CAPAC(152) 

EPSI 

LMDA(26) 


Required  input.  Sets  value  of  HNUP.  Compton 
scattering  does  not  allow  large  values  of  HNUP. 

There  is  no  safety  coding,  such  as  "if  zero,  set  to 
10  .  "  It  must  be  entered. 

Compton  switch.  If  zero,  Compton  scattering  is 
calculated;  if  nonzero,  Thomson  scattering. 

Scattering  coefficient.  If  negative,  it  is  not  added 
to  the  absorption  coefficient  from  the  DIANE  tape, 
but  the  absolute  value  is  used  as  the  scattering 
coefficient.  If  positive,  k(DIANE)  is  assumed  to  be 
K.  only,  and  ic  =  SOLID(37)  is  added. 

3.  3 

SOLID(37)  =  0  would  provide  a  very  inefficient  "no 
scattering"  calculation. 

Required  input  for  NHNU.  The  subroutines  WTAPE 
and  RTAPE,  which  set  up  the  drum  storage  for  the 
scattering  source  terms  and  process  these  on  a  non¬ 
standard  SPUTTER  dump  tape,  must  know  the  value 
of  NHNU  before  the  DIANE  tape  is  read.  Using  the 
dimension  limit  of  20  would  avoid  this,  but  would  lead 
to  inefficiencies.  (MUST  BE  LOADED  IN  FIRST  SET 
OF  CARDS.) 

Scattering  iteration  convergence  coefficient,  usually 
0.05. 

Scattering  iteration  extrapolation  parameter,  usually 
0.5. 

Scattering  iteration  recycle  limit.  Zero,  no  iteration. 
Maximum  allowed  value  is  8.  Usual  value  is  4. 

Radius  of  OUTPUT  sample  tube. 

Index  of  zone  boundary  at  which  OUTPUT  sample 
tube  is  affixed. 
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CVB 


HVB 


HCB 


RDK 


THETAK 


If  CVB  is  zero,  negative  scattering  intensities  are 
set  to  zero  and  the  problem  continues.  If  CVB  is 
nonzero  and  a  negative  scattering  intensity  arises, 
the  code  calls  UNCLE. 

If  HVB  is  zero,  negative  scattering  intensities  go 
unreported.  If  HVB  is  nonzero  and  a  negative 
scattering  intensity  arises,  a  brief  data  report  is 
given,  and  a  y-line  print  is  triggered. 

The  normal  SPUTTER  RAD  meaning  applies  here. 
Negative  forces  diffusion;  positive  forces  transport; 
zero  lets  the  code  decide. 

■*  This  array  is  used  in  standard  SPUTTER  to  provide 
input  for  the  various  source  routines,  and  the 
OUTPUT  code  does  the  same. 

QUE8:  Energy  is  supplied  uniformly  in  mass  space 
within  a  defined  region  (i.e.  ,  all  zones  within  the 
region  receive  a  constant  ergs/  sec/gm)  at  a  rate  that 
varies  stepwise  with  time.  RDK(l)  is  the  index  of 
the  first  zone  in  the  region;  RDK(2)  is  the  index  of 
the  last  zone  in  the  region.  Up  to  50  time  cuts  can 
be  specified  in  RDK(3)  -  RDK(52).  The  49  rates  for 
the  corresponding  periods  (in  ergs/ sec  for  the  whole 
region)  are  given  in  RDK(54)  -  RDK(102).  Energy 
source  rate  for  t  >  RDK(52)  is  zero. 

QUE9 :  This  routine  is  similar  to  QUE8,  except  that 
the  fine  time  definition  is  sacrificed  for  some  spatial 
definition.  Up  to  six  different  contiguous  regions  can 
be  defined  (seven  bounding  zone  indices  provided). 

Each  has  a  separate  set  of  up  to  fix  source  rates  and 
time  cufs.  Detailed  input  specification  appears  in  the 
FORTRAN  listing. 

_  „  —X 

QUE10:  Energy  is  supplied  as  g  in  mass  space, 
where  g  is  a  mass  space  coordinate  and  x  is  an 
exponent  determined  by  the  average  energy  rate  and 
by  the  rate  specified  at  the  right  boundary.  The  two 
rates  are  specified  for  each  given  period.  Ten  periods 
are  allowed.  Time  cuts  are  given  by  RDK(3)  -  RDK(13), 
the  average  rates  by  RDK(54)  -  RDK(63),  and  the 
boundary  rates  by  RDK(44)  -  RDK(53). 

This  array  is  used  as  input  to  KAP6/ JP.  If  one 
wishes  to  run  a  multifrequency  problem  without  using 
a  DIANE  tape,  one  must  specify  the  number  of  fre¬ 
quency  groups  and  the  boundaries,  in  eV,  of  the  desired 
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frequency  groups.  KAP6  specifies  these  and  also  a 
constant  absorption  coefficient,  independent  of  density 
and  temperature,  for  each  frequency  group.  Up  to 
20  frequency  groups  are  allowed.  THETAK(6l)  - 
THETAK(80)  gives  the  lower  boundary  frequencies. 
THETAK(81)  -  THETAK(IOO)  gives  the  absorption 
coefficients.  THETAK(lOl)  gives  the  number  of 
frequency  groups;  THETAK(102)  gives  the  grey 
absorption  coefficient;  and  THETAK(103)  gives  the 
upper  boundary  frequency  of  the  top  group,  as  indi¬ 
cated  on  p.  86  of  this  report. 


SI  FLAGS  IN  THE  RADIATION  ROUTINES 

The  SPUTTER  code  follows  the  practice  of  setting  the  variable  SI  to 
some  value  and  calling  UNCLE  in  case  of  serious  trouble.  The  integer 
portion  of  the  SI  flag  indicates  the  subroutine,  and  the  four  digits  after  the 
decimal  point  indicate  the  FORTRAN  statement  number.  The  SI  flags  for 
the  radiation  routines  in  the  OUTPUT  code  are  listed  and  commented  on  below. 


RAD 


SI  Flag 
13.0102 


Immediate  Cause  Probable  Remote  Causes  and  Comments 

Zero  or  negative  CAPAC  An  opacity  of  interest  has  not  been  eval- 
or  CAPAR  (grey)  uated.  This  usually  happens  with 

untested  KAP  routines. 


13.0112  Small  At  causes  more 
than  50  radiation 
subcycles 


Can  be  caused  on  first  cycle  by  improp¬ 
erly  set  TELM(25)  or  SLUG,  or  any 
time  by  actual  pathologies  in  CV,  THETA, 
SV,  or  opacity,  or  simply  by  failure  to 
start  the  problem  with  a  small  enough 
time  step. 


13.0150  Divide  check 

13.0119  K  >  10 


Division  by  zero.  See  the  preceding 
DIVCHK  diagnostic  prii  t  for  locations 
of  divide  instruction  and  divisor. 

At  least  10  attempts  have  been  made  to 
space  y -lines  so  that  x- storage  is  not 
overtaxed,  and  these  have  failed.  A 
code  change  is  necessary,  or  the  prob¬ 
lem  must  be  rerun  with  fewer  zones. 
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SI  Flag 

13.0452 

Immediate  Cause 

Probable  Remote  Causes  and  Comments 

Divide  check 

Same  as  13.0150. 

13.0460 

Negative  INM1 

Absurd.  Indicates  a  radiation  zone  with 
zero  or  negative  index. 

13.0530 

Zero  or  negative  CAPAC 
or  CAPAR 
(multifrequency) 

See  13.0102 

13.0652 

Zero  or  negative  optical 
depth 

Something  has  gone  wrong  with  the 
definition  of  H3  in  the  preceding  lines 
of  code. 

13.0654 

GL  >0.9,  HCB  <  0 

An  attempt  is  being  made  to  force  diffu¬ 
sion  and  provide  external  source  inten¬ 
sities,  two  incompatible  problem 
specifications . 

13.0692 

Divide  check 

Same  as  13.0150. 

13.0720 

Positive  X3 

Absurd.  Code  sets  X3  either  zero  or 
negative  as  a  diffusion  flag. 

13.0962 

I  ALPHA  =  2 

A  transport  calculation  in  cylindrical 
geometry  is  being  attempted. 

13.0982 

IR  <  IM 

Absurd  in  present  code.  IR  set  to  IM 
earlier. 

13. 1070 

Divide  check 

Same  as  13.0150. 

PTRANS 

14.0100 

Divide  check 

Same  as  13.0150 

14. 0120 

LALPHA  >  1 

Somehow  PTRANS  called  for  nonplane 
geometry.  Absurd. 

14.0160 

INM1  negative 

See  1 3 . 0460 . 

14.0350 

GL  >0,  GL  £0.5 

The  external  source  intensity  option 
has  been  deleted.  GL  therefore  has  a 
meaningless  value. 

14.0360 

IBX  >  IM 

Absurd.  A  portion  of  the  transport 
region  sterns  to  be  outside  the  radia- 

tion  region. 
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STRANS 


SI  Fla 


Immediate  Cause 


14.  0001  Divide  check 
14.0005  IALPHA  *  3 


14.0011  IBX  >  IM 

14.0087  y-line  index 
out  of  range 

14.0152  Divide  check 

14.C171  IBX  >  IM 

14.0207  X(K)  =  0.0 


Probable  Remote  Causes  and  Comments 


Same  as  13.0150. 

Somehow  STRANS  called  for  nonspherical 
geometry.  Absurd. 

See  PTRANS  14.0360. 

The  most  likely  cause  for  this  stop  is 
scrambled  radii. 

Same  as  13.0150. 

See  PTRANS  14.  0360. 

This  is  an  absurd  stop.  Any  occurrence 
of  it  in  the  OUTPUT  code  would  have  to 
be  carefully  examined  for  the  cause. 


STEP 


No  SI  interrupts  appear  in  the  program. 


SCAT 


75.001  Divide  check 

75.008  FS  <  0,  CVB  ^  0 


75.0009  Divide  check  in  SCAT 


Same  as  13. 0150. 

Negative  scattering  intensity  with  abort 
flag  set.  If  HVB  also  £  0,  a  diagnostic 
print  is  given. 

Same  as  1 3. 0150. 


KAPPA 


15.0500  Bad  QLM  (J  +  17) 


15.0810  Divide  check 


Improper  optical  property  specification 
resulting  in  an  attempt  to  call  a  non¬ 
existent  KAP  routine. 

Same  as  13.  0150. 
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KAP6 

SI  Flag  Immediate  Cause  Probable  Remote  Causes  and  Comments 


No  SI  interrupts  appear  in  this  program. 


KAP12 


No  SI  interrupts  appear  in  this  program. 
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APPENDIX  II 

DESCRIPTION  OF  INPUT  FOR  A  SAMPLE  PROBLEM 

The  debug  test  problem  described  in  this  appendix  was  run  on  the 
UNIVAC-1108  about  September  15,  1967,  and  on  the  CDC  6600  at  the  Air 
Force  Weapons  Laboratory,  Kirtland  AFB,  New  Mexico,  on  September  22. 
The  two  runs  matched  within  expected  roundoff  differences.  The  calculation 
was  a  multifrequency  transport  calculation  with  Compton  scattering,  using 
dummy  hydrodynamics  and  the  KAP6  opacity  routine. 

The  problem  consisted  of  a  sphere  with  a  radius  of  10  cm,  which 
contained  10  zones,  with  a  temperature  of  8  keV,  and  was  surrounded  by 
a  shell  with  a  thickness  of  10  cm,  which  contained  20  zones,  at  a  tem¬ 
perature  of  600  eV.  The  density  was  taken  as  one  in  all  zones,  and  the 

2 

Rosseland  opacity  as  0.  2  cm  /g  in  all  groups. 

The  input  deck  consists  of  SPUTTER  Common  input  cards  only„  except 

for  an  initial  header  card  which  contains  arbitrary  identifying  information  in 
Columns  1-72.  These  Common  input  cards  have  the  following  format: 

Col.  1:  1  denotes  the  last  card  of  the  deck  and  must  appear  on 
that  card.  2  specifies  that  the  data  on  the  card  will 
be  converted  to  fixed  point  and  appear  as  INTEGER 
variables  in  Common. 

Blank  (or  1)  specifies  that  the  data  on  the  card  will 
appear  as  REAL  variables  (floating-decimal  form) 
in  Common. 

Cols.  2-6:  Location  relative  to  start  of  Blank  Common  in  which  the 
first  data  word  on  the  card  is  to  be  stored. 

Col.  7:  Number  of  data  fields  on  the  card  (maximum  7). 
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Cols.  8-70:  Up  to  seven  data  fields,  of  nine  columns  each,  contain 
numerical  data  to  be  read  under  the  format  OP7E9.  4. 
Blank  fields  generate  zeros  (unless  they  are  excluded 
by  the  field  number  in  Col.  7). 

Cols.  71-80:  Card  identification  information. 

The  test  problem  input  deck  is  shown  in  table  III.  Each  card,  identified 
by  its  initial  location  number,  is  discussed  below.  Data  fields  containing  0. 
can,  of  course,  be  omitted,  but  are  included  in  several  cases  for  expository 
reasons. 

68:  FREQ  gives  the  number  of  cycles  between  prints.  CNTMAX, 

in  69,  gives  the  cycle  number  at  which  the  problem  is  to  be 
terminated. 

1:  Zone-boundary  indices  for  the  "lambda"  regions  (which  are 

usually  regions  of  different  materials).  For  one  lambda 
region  of  30  zones,  the  two  limits,  1  and  31,  are  given. 

19:  LMDA(19)  is  a  flag  which,  if  >0,  will  trigger  a  complete 

print  of  Blank  Common  as  if  there  were  an  error  exit,  even 
if  the  problem  terminates  normally.  Since  the  extra  infor¬ 
mation  is  often  useful,  setting  LMDA(19)  to  1  has  become 
standard  practice. 

36:  LMDA(36)  is  a  special  quantity  specifying  the  number  of 

frequencies.  This  is  discussed  further  on  p.  86  of  this 
report.  In  the  present  case,  there  were  20  frequencies. 

40:  Several  numbers  are  given  on  this  card:  the  SPUTTER 

variables  IA,  IB,  ICA,  ICB,  and  KM  AX,  respectively.  The 
nonzero  value  of  KMAX  dictates  multifrequency.  The  other 
numbers,  index  limits,  are  required  by  the  special  XCARDS 
as  a  substitute  for  normal  SPUTTER  problem  generation. 

53;  IG  is  another  quantity  needed  by  XCARDS.  This  is  the 

extreme  upper- limit  index  to  the  problem.  When  one 
remembers  that  SPUTTER  has  indices  for  upper  limit  to 
vapor,  upper  limit  to  solid,  upper  limit  to  radiation  regions, 
upper  limit  to  non-LTE  region,  etc.  ,  the  significance  of 
the  term  "extreme  upper  limit"  becomes  clear;  and  IG 
does  serve  a  purpose. 

65:  TMAX  is  the  problem  time  at  which  the  problem  is  terminated. 

An  absurdly  large  value  is  set  here,  since  one  wishes  to 
limit  the  run  by  cycle  count  instead. 
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77:  CVB,  described  on  p.  87  of  this  volume,  is  set  zero  in  this 

case  because  one  knows  that  negative  scattering  intensities 
will  arise  in  the  first  frequency  group,  and  one  wishes  to 
ignore  them. 

78:  This  quantity,  SLUG,  is  described  on  p.  71  of  this  report. 

Its  normal  value,  0.  1,  appears  here. 

79:  ALPHA  (see  p.  17  of  this  report).  Set  3.  for  spherical 

geometry. 

81:  HVB  (see  p.  87  of  this  report).  Set  zero  to  bypass  debug 

print. 

83:  HCB  ( iee  p.  87  of  this  report).  Set  zero  to  let  code  decide. 

90:  GL  (see  pp.  58  and  67  of  this  report).  Set  zero  to  provide 

exterior  vacuum. 

93:  RHOR.  Special  flag  for  air  equation  of  state.  Set  big  by 

habit  Not  needed  for  this  problem. 

100:  RPIA.  If  zero,  radiation  tern,  *  are  added  in  the  equation- 

of-state  calculation.  Normally  set  zero. 

107:.  TC  is  the  time  before  which  DTMAX1  applies,  and  after 
*  which  DTMAX2  applies. 

109:  TE  is  the  time  before  which  DTMAX2  applies,  and  after 

whijn  DTMAX  3  applies. 

115:  The  time  step  is  usually  controlled  by  physical  consid¬ 

erations  (e.  g.  ,  hydro  or  radiation  time- step  controls). 
However,  if  the  user  feels  that  these  might  be  too  generous 
in  some  cases,  he  may  specify  an  upper  limit  to  the  time 
step,  one  for  each  of  three  specified  time  intervals,  namely, 
DTMAX1,  DTMAX2,  DTMAX3.  Some  number  must  be 
specified  for  these.  In  this  problem,  it  was  desired  that 
a  quasi- steady- state  radiation  field  be  established  in  a  time 
short  compared  with  cooling  times.  Since  retardation  is 
not  included  here,  an  arbitrarily  small  time  step  is  indicated, 
and  one  was  chosen. 

127:  TRDBG,  otherwise  known  as  AC03T4,  described  on  p.  54 

of  this  report.  Set  zero  to  avoid  debug  print. 

137:  S2  is  the  radiation  flag,  tested  in  MP2  and  in  the  switching 

routine  RADTN.  A  value  of  2  means  that  RAD  is  to  be 
called.  Zero  bypasses  radiation  altogether. 

138:  S3.  Set  nonzero  to  bypass  conduction.  Since  the  appropriate 

subroutine  has  been  deleted  from  the  OUTPUT  code,  this 
input  quantity  is  unnecessary. 


96 


AFWL-  TR-67  -131 ,  Vol  III 


139: 


140: 

147: 

151: 


160-188: 

2021-2049: 

2325-2353: 

7338: 


8405: 

8681: 

9405: 

9332-9346: 

9352-9366: 

9372: 

8466: 


8858: 


54.  Its  original  meaning,  "don't  call  BOIL,  "  has,  with 
the  deletion  of  BOIL,  been  changed  to  allow  for  "dummy 
hydro"  or  no  motion  if  set  negative.  This  was  desired 
for  this  test  problem. 

55.  Used  to  indicate  the  logical  unit  of  the  SPUTTER  dump 
tape.  The  value  10  is  a  typical  one. 

EDITMF,  otherwise  known  as  S12.  Described  on  p.  66  of 
this  report.  Set  to  1  to  deliver  the  multifrequency  edit. 

Sl6.  This  is  a  flag  that  tells  MP1  (the  generator- setup- 
rezone  section  of  SPUTTER)  whether  the  problem  is  an 
"initial"  or  cold  start  or  a  "restart.  "  Zero,  the  former; 
one,  the  latter.  This  problem  is  an  "initial"  start,  where 
all  parameters  must  be  supplied  by  the  user  and  a  zero- 
cycle  dump  prepared.  Hence  the  value  zero. 

R  (radii)  for  the  31  zone  boundaries. 

SV  (inverse  densities)  for  the  30  zones. 

THETA  (temperatures  in  eV)  for  the  30  zones. 

These  are  the  three  parameters  controlling  iteration  on  the 
moment  quantities.  They  are  described  on  p.  86  of  this 
volume  and  are  also  discussed  on  p.  83.  It  is  stated  on 
p.  83  that  CAPAC(151)  =  0.  did  not  work,  whereas 
CAPAC(151)  =  -0.  5  worked  well.  CAPAC(l5l)  =  -0.  2, 
which  was  used  in  this  problem,  proved  even  better. 

OKLM(l).  This  equation-of- state  flag  results  in  a  call  to 
EIONM5  for  hydrot«*n.  A  suitable  dummy  material. 

The  value  206.  r  £u’ts  in  a  call  to  KAP6,  a  special  OUTPUT 
opacity  subroutine  described  in  Appendix  A. 

MAXLM  is  the  number  of  "lambda"  regions  in  this 
configuration. 

THETAK(6l-80)  is  used  by  KAP6  to  define  the  frequency  groups. 

THETAK(81-100)  is  used  by  KAP6  to  define  the  opacities. 

THETAK(101-103)  is  used  for  KAP6  to  define  NHNU,  the  grey 
opacity,  and  the  top  frequency  limit. 

TELM(25)  (defined  on  p.  71  of  this  report).  Set  to  0.  5  as 
a  holdover  from  another  problem.  Not  needed  as  long  as 
the  time  step  is  held  down  by  DTMAX1,  2,  3. 

SOLID(IO)  (defined  on  p.  71  of  this  report).  Set  nonzero 
for  Rosseland  opacities.  Superfluous  when  KAP6  is  used, 
as  in  this  case. 
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8884:  SOLID(36)  (defined  on  p.  86  of  this  report).  Set  zero  for 

Compton  scattering. 

888B:  SOLID(37)  (defined  on  p.  86  of  this  report).  The  peculiar 

value  of  -0.  1999  is  given  so  that  "5c  >  ic  in  all  cases. 

s 

8882:  SOLID(34),  the  starting  cycle  number.  The  1  in  Col.  1 

indicates  that  input  is  complete.  Contrary  to  normal 
SPUTTER  generation,  this  style  of  problem  specification 
has  only  one  set  of  input  cards. 

A  second  test  calculation  has  been  carried  out  to  test  the  sensitivity 
of  the  results  to  the  parameter  S4.  The  problem  was  as  follows: 

Region  1  0  <  r  <  15  cm 

p  =  1. 

0  =  8-.  433  r  keV 
Ar  =  1.  cm 

Region  2  15<r<150  cm 

p  =  31/  r3 
0  =  600  eV 

g  =  10  (i.  e.  ,  total  mass  of  each  zone  is  4/3  ir  x  10  g) 

The  Rosseland  optical  depth  of  Region  2  was  0.  7.  Three  values  of  S4  were 
tried:  0.  33,  0.  5,  and  1.  The  first  of  these  effectively  forces  use  of  motion 
equation  differencing  based  on  Eq.  (64)  even  in  the  diffusion  limit.  The 
singularity  at  r  =  0,  represented  by  the  last  term  in  Eq.  (64),  causes  the 
velocity  to  diverge  near  the  center,  as  shown  in  figure  7  for  time 
2.  36  x  10_<)  sec.  The  use  of  an  S4  value  higher  than  1/3  allows  the  use 
of  Eq.  (63)  in  the  central  region,  and  more  reasonable  results  are  obtained. 
No  significant  difference  between  the  results  for  S4  =  0.  5  and  1.  0  at  low 
radii  or  between  any  of  the  results  for  r  >  4  cm  was  noted.  A  calculation 
with  a  very  small  core  radius  would  presumably  indicate  that  the  value 
0.  5  is  superior,  but  additional  work  is  required  before  this  point  can  be 
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UiT  FOK  QULo/OUT*  QUtH/OUT,  3UE6/0UT1 
SUBROUTINE  QUEo 

C  SPECIAL  SOURCE  FOK  J.  PALMER 
C  ROM  1)5  LEFT  ZONE  BOUNDARY 

C  RUK ( 2 ) 3  RIGHT  ZONE  BOUNDARY 

C  RuK(3-52)=  I  IKES  FOR  GIVEN  LDOT 

C  RGK(53-1U4)=  EUUTS  FOR  GIVEN  TIMES  . 

C *********************** ******************************************* *****KAP20070 
c*  ♦KAP200B0 

C*  S  P  U  T  (  E  H  COMMON  **KAP20090 

c  **KAp20100 


♦KAP200B0 

♦♦KAP20090 

♦♦KAP20100 

♦♦KAP20110 


COMMON  I 

1  KMAX 

2  II 

A  IIP1 

4  FREQ 

5  CVA 

b  EM1NA 
7  RHOL 
tt  RP1A 
COMMON 
J,  DTMAX1 
i  GAMA 
A  ROIA 
4  S4 

a  si2 

a  S2u 
7  ASO  ( 
a  OELR  ( 
COMMON 

1  a  ( 

2  V  ( 
A  X3  ( 
4  SMLA  ( 

6  EC  ( 

a  b:gu  < 

7  CH1R  I 


LMUA (37) 

•  BLANK1 
,  IG 

•  IGM1 

,  CNTMAX 

•  CVb 

»  EMINB 

•  RHOR 
.  KPIB 

TO 

OTMAX2 

.  acRU 

>  ROIAMl 

.  ss 

•  SI3 


NKAU  « 
I ALPHA, 
AR  , 
SLUG  , 
CA  , 
EPIO  , 
RPUIA  , 
TE 


NSMLR  , 

IA  , 

IB 

9 

ICA  , 

1CB 

, KAP20120 

BL.NK3, 

I  API  , 

IBP1 

9 

1CAP1  , 

ICBPl 

,KAP20130 

ULANK4, 

I  AMI  , 

IBM1 

9 

icami  , 

ICBM1 

, KAP20140 

blanks, 

TH  , 

TMAX 

9 

BLANK6, 

DELPRT 

,KAP201S0 

A SMLR  , 

PUSHA  , 

PUSHB 

9 

B01LA  , 

BOILB 

, KAP20160 

ALPHA  , 

MV  A  , 

MVB 

9 

MCA  , 

HCB 

,KAP20170 

CB  , 

GA  , 

GB 

9 

GL  , 

GR 

,KAP20180 

EPSI  , 

R1A  , 

RIB 

9 

ROIA  , 

RD1B 

, KAP20190 

KPOIB  , 

TPRINT, 

TA 

9 

TB  , 

TC 

KAP20200 

0TH2  , 

0TH2P  , 

OTH1 

9 

DTRMlN, 

DTMAX 

, KAP20210 

OTR  , 

SalTCH, 

CO 

9 

CM  IN  , 

DELTA 

, KAP20220 

AC  , 

AC03T4f 

CNVRT 

9 

SUPRA  , 

SUMRB 

, KAP20230 

KOIBP1, 

GMS  , 

SI 

9 

S2  , 

S3 

, KAP20240 

S7  , 

S8  , 

S9 

9 

S10  , 

Sll 

,KAP20250 

S15  , 

S16  , 

S17 

9 

S18  , 

S19 

, KAP20260 

6  S2U  ,  EO  ,  FO  »  TAU  ,  ZERO  ,  R  (152),  DELTARI 152) .KAP20270 

7  ASQ  (1S2) »  KU  (152),  VO  <152),  RDD  (152),  SMLR  (152) ,KAP20280 

a  OELR  (  37),  P  (152),  PI  (152),  PB  (152),  PB1  (152)  KAP20290 

COMMON  P2  (152),  SV  (152),  RHO  (152),  THETA  (152) »KAP20300 

1  M  (152),  E  (152),  El  (152),  EK  (152),  A  (152)  ,KAP2.03lO 

2  V  (152),  G  (152),  D  (152),  C  (J52>»  X2  ( 152) »KAP20320 

A  X3  (152),  X4  (152),  XS  (152),  X6  (152),  X7  ( 152) »KAP20330 

4  SMLA  (152),  SML3  (152),  SMLC  (152),  SMLD  f-52),  SMLE  ( 152) ,KAP20340 

5  EC  (152),  ER  (152),  SMLQ  (152),  SMLH  (152),  BI6A  ( 152) ,KAP20350 

6  B.Gb  (152),  CV  (152),  BC  (152),  OR  (152),  CHIC  (152) »KAP20360 

7  CH1R  (152),  CAPAC  (152),  CAPAK  (152),  CRTC  (152),  CRTR  ( 152) »KAP20370 

a  CRTPC  (152),  GOP'H  (152),  FEW  '  (152),  CAR  (152),  OKLM  (  37)  KAP20380 

COMMON  TELM  (  37),  EKLM  (  37),  ELM  (  37),  FCLM  (  37),KAP20390 

1  FRLM  (  37),  WLM  (  37),  QLM  (  37),  AMASNO(  37),  CHRNO  (  37),KAP20400 

2  ZPl  (  37),  ZP2  (  37),  SOHO  (  37),  ECHCK  (  37),  RK  (104)  ,KAP20410 

3  RL  (  37),  KHOK  (104),  ROK  (104),  THETAK  ( 10M »  TEMP  (•  16)  ,KAP20420 

4  HEAD  (  12),  MAXL  ,  MAXLM  KAP20440 

•♦KAP20450 

c!******************************’11  **********************************  *****^*^^0460 

OATA  FIRST/0./ 

IF(FIRST)  40,10,40 

10  IF  ( RDK 41)*  RDK (2)  .GT.  0.1)  GO  TO  20 
S1S74.0010 
CALL  UNCLE 
20  ILSROK(I) 

IRSR0K(2)  ■ 

SUMGSO. 

00  30  ISIL'IR 


,  EO 

,  FO 

, 

TAU 

,  ZERO 

,  R 

(152>, 

DELTARU52) 

(152), 

KU 

(152), 

VO 

(152), 

RDD 

(152), 

SMLR 

(152) 

(  37), 

P 

(152), 

PI 

(152), 

PB 

(152), 

PB1 

(152) 

P2 

(152), 

SV 

(152), 

RHO 

(152), 

THETA 

(152) 

(152), 

E 

(152), 

El 

(152), 

EK 

(152), 

A 

(152) 

(152), 

G 

(152), 

D 

(152), 

C 

()52>, 

X2 

(152) 

(152), 

X4 

(152) , 

X5 

(152), 

X6 

(152), 

X7 

(152) 

(152), 

SMLD 

(152), 

SMLC 

(152), 

SMLD 

C52>» 

SMLE 

(152) 

(152), 

ER 

(152), 

SMLQ 

(152), 

SMLH 

(152), 

B1GA 

(152) 

(152), 

CV 

(152), 

BC 

(152), 

OR 

(152), 

CHIC 

(152) 

(152), 

CAPAC 

(152), 

CAPAK 

(152), 

CRTC 

(152), 

CRTR 

(152) 

(152), 

GOF'K 

(152), 

FEW 

(152), 

car 

(152), 

OKLM 

(  37) 

TELM 

(  37), 

EKLM 

(  37), 

elm 

(  37), 

FCLM 

(  37) 

(  37), 

WLM 

(  37), 

QLM 

(  37), 

AMASNO(  37), 

CHRNO 

(  37) 

(  37), 

ZP2 

(  37), 

SOLIO 

(  37), 

ECHCK 

(  37), 

RK 

(104) 

(  37), 

KHOK 

(104), 

ROK 

(104), 

THETAK ( 109) , 

TEMP 

(■  16) 

(  12), 

MAXL 

, 

MAXLM 
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B|  FOR  0UE9/UPD,  GUE9/JP3.  QUE9/JP1 
SUBROUTINE  QUE9 

C******************* *************************,*******,******,,,, ******** 


c* 

5  P 

U  T  T  E 

K  CO 

M  M  0 

N 

** 

c* 

** 

c* 

*♦ 

COMMON 

LMIMI37) , 

NK  , 

WSMLR  , 

IA 

IB 

9 

ICA  , 

ICB 

9 

1 

KMAX 

BLANK1, 

BLANK2, 

ULANK3, 

1  API 

IBP1 

9 

IC API  , 

ICBP1 

9 

2 

II 

IG  , 

NKAL)  , 

ULANK4 , 

I  AMI 

IBM1 

9 

icami  , 

IC0M1 

9 

3 

IIP1 

IGM1  , 

I ALPHA. 

BLANK 5, 

TH 

TMAX 

i 

BLANK6, 

DELPKT , 

4 

FREQ 

cntmax. 

AK  , 

ASMLR  , 

PUSHA 

PUSHB 

9 

BOILA  , 

BOILb 

9 

5 

CVA 

CVB  , 

SLUG  , 

ALPHA  , 

HVA 

HVB 

9 

HCA  , 

HCB 

9 

6 

EMINA 

EMI NO  , 

CA  , 

CB  , 

GA 

GB 

9 

GL  , 

GR 

9 

7 

RHOL 

KHOK  , 

EPIO  , 

EPSI  . 

RIA 

RIB 

9 

ROIA  , 

KOIB 

9 

a 

RPIA 

KPIU  , 

KPOIA  , 

KPOIB  , 

TPRINT 

TA 

9 

TB  , 

TC 

COMMON 

TU  . 

TE  , 

0TH2  , 

DTH2P 

DTH1 

9 

dtrmin, 

OTMAX 

9 

1 

0TMAX1 

DTMAX2, 

DTMAX3, 

JTH  , 

SWITCH 

CO 

9 

CMIN  , 

DELTA 

9 

2 

GAMA 

WCRIT  , 

SIGMAJ, 

AC  , 

AC03T4 

CNVRT 

9 

SUMRA  , 

SUMKO 

9 

3 

ROIA 

KOI AMI, 

HO  IU  • 

K0IUP1, 

GMS 

SI 

9 

S2  , 

S3 

9 

4 

S4 

S5  . 

Sb  , 

S7  , 

SB 

S9 

9 

S10  , 

Sll 

9 

5 

S12 

S13  . 

S14  , 

S15  . 

S16 

S17 

9 

S18  , 

S19 

9 

6 

S20 

EO  . 

FO  , 

TAU  , 

ZERO 

R  (152),  DELTAR(152), 

7  ASQ  (152)  #  KD  (152) *  VO  (152),  ROD  (152)*  SMLr  (152). 

8  DELh  (  37)*  P  (152)*  *>1  (152)*  PB  (152)*  PB1  (152) 

COMMON  P2  (152)*  SV  (152)*  RHO  (152)*  THETA  (152). 

1  W  (152).  E  (152).  El  (152).  EK  (152),  A  (152), 

2  V  (152).  G  (152).  0  (152)*  C  (152).  X2  (152), 

J  X3  (152).  X4  (152).  X5  (152).  X6  (152).  X7  (152), 

8  SMLA  (152).  SMLH  (152).  SMLC  (152).  SMLO  (152).  SMLE  (152). 

5  EC  (152).  EK  (152),  SMLO  (152),  SMLH  (152),  BIGa  (152). 

6  BIGU  (152),  CV  (152),  BC  (152),  BR  (152),  CHIC  (152), 

7  CHIP  (152),  CAPAC  (152).  CAPAR  (152),  CKTC  (152),  CRTr  (152), 

«  CRTPC  (152).  GOPH  (152),  FEW  (152),  CAR  (152),  OKLM  (  37) 

COMMON  TELM  (  37),  EKLM  (  37),  ELM  (  37).  FCLM  (  37), 

1  FRLM  (  37).  WLM  (  37).  QLM  (  37),  AMASNO(  37),  CHRNO  (  37), 

2  ZP1  (  37;.  2P2  (  37),  SOLID  (  37),  ECHCK  (  37).  RK  (104). 

3  RL  (  37).  KHOK  (104),  ROK  (104),  THETAK ( 104) ,  TEMP  (  16), 

4  HEAD  (  12).  MmxL  ,  MAXLM 


DATA  fIRST/0./ 

NSROK(lOl) 

IFtFIHST ,GT • ,5)  GO  TO  25 

DO  20  Ksl.N 

IL-ROK(K) 

I«=ROK(K*l)-l. 

ROK  (944(0=0, 

DO  10  ISIL.IR 

10  R0K(94*K)=R0K(94+k)*G(I) 

20  CONTINUE 
25  00  30  1=1,152 
30  SMLQ(I)=0. 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


L>0  99  K=1*N 
T2=TH*0TH2 

IFtT2.LT.  l.t-20)  GO  TO  100 

M=10*(K-1)*12 

IFIT2.LT.KUMM)  J  GO  TO  99 

Ml  =  M  ♦  1 

MS  =  M  +  5 

00  40  J  =  Ml*  Mb 

L  5  U 

IF(HDMU).GT.  T 2 )  GO  TO  bO 
40  CONTINUE. 

GO  TO  99 

50  SOLID  (to)  2ROML  frS! 

IF  (ROML-1 )  .LI.  TH)  GO  TO  60 
Q  =  (KOKtL-1)  “  TH*  *  RUML+4) 

IF  (L  .EO.  Ml)  0=0. 

TEMP (2)  =  (T2  “  KUKtL-1))  *  RDML+S) 
S0LlUt8)=T£MPl2)/UrH2 
60  CNVRT=CNVRT*S0LIU(B)*DTH2 

TEMP(l)S.23B73241*SOLID(d)/RDM94*K) 

IL=ROMM 

IH=RUMM1)-1. 

00  70  1=IL*IR 
70  SMLQ ( I )  -T £MP  ( 1 ) *6 1 1 ) 

99  CONTINUE 
100  FIRST=1. 

RPIB=CNVRT 

RETURN 


RDM  1) -RUM  7)  CONTAIN  HURT  OF  SOURCE  REGIONS 
RUK l 10 ) -KDK (15)  CONTAIN  TIME  CUTS  FOR  FIRST  GROUP 
ROM lo)-ROK (21 )  CONTAIN  KATES  FOR  FIRST  GROUP 

RDM 22) -ROM 27)-  TIME  2ND  GROUP 
ROM  2d) -ROM  33)  RATES 
RDK ( 34 ) -KDK ( 39 )  TIME  3RD  GROUP 
ROM  40-45)  RATES 

RDM 46-51)  TIMES  4TH  GROUP 
RUM  52-57)  RATES 

RUMS8-63)  TIMES  STH  GROUP 
RDM  64-69)  RATES 

RDM 70-75)  TIMES  6TH  GROUP 
ROM  76-81)  RATES 

R0M95-1Q0)  CONTAIN  MASS  OF  EACH  GROUP 
ROM  101)  NO.  OF  MATERIAL  GROUPS 

K  IS  SOURCE  REGION  INDEX 
J*  L  ARE  TIME  CUT  INOICES 

moo  is  the  rdk  table  indicator 


C  VEAT.  IF  TIME  EXCEEDS  LAST  CUT*  SOURCE  SET  ZERO 
*  END 


uuu 
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tttl  FOR  UUtlO/OUT*  GUElu/OUT,  OUEIO/OUTI 
SUBROUTINE  QUE10 
COMPILED  JULY  16  >  19u7  JEZ 
C  SPECIAL  SOURCE  FOR  J.  PAL.4&R 

c  source  Varies  as  k**-n 

C  ROKIDS  left  ZONE  BOUNDARY 

C  RDK<2)=  HIGHT  ZOUl  BOUNDARY 

C  ROM  3-52  >s  TiMc.5  FOR  GIVEN  LOOT 
C  R0K(53-1U4)=  EOOTS  FOR  GIVEN  TIMES 

£***************♦*♦*****♦**********•♦***************************•*♦*♦ ***KAP2007o 
5  ..  .  ♦KAP20060 

C*  SPUTTER  COMMON  **KAP2009o 

)•*  ♦♦KAP20100 

C*  . . . .  .  **KAP20110 


COMMON 

1  KMAX 

2  II 

3  IIP! 

4  FHEO 

5  CVA 

b  EMINA 
7  RHOL 
b  RPIA 
COMMON 

1  OTMAX1 

2  6AMA 


LMQA<37) 
.  BLANK 1 
,  IS 

*  IGM1 

,  CNTMAX 

*  CVB 

*  EMlNB 
.  RHOR 

*  RPIB 
TU 

.  DTMAX2 
,  NCR IT  i 


NR 

bLA!IK2 

NRAO 

1ALPHA 

AR 

SLUG 

CA 

EPIO 

RPUIA 

TE 

DTMAXii 

SIGMAGi 


3 

ROlA 

,  R01AM1, 

ROIcj  , 

K01BP1 

,  GMS 

4 

S4 

,  S5 

9 

S6  . 

S7 

,  SB 

b 

S12 

.  S13 

9 

S14  , 

S15 

,  Sib 

b 

S20 

,  EO 

9 

FO  . 

TAU 

.  ZERO 

7 

ASO 

(152), 

KD 

(152). 

VD 

(152), 

0 

0£LR 

(  37), 

P 

(152). 

PI 

(152), 

COMMON 

P2 

(152). 

SV 

(152), 

1 

N 

(152). 

E 

(152)  . 

El 

(152), 

2 

V 

(152). 

G 

(152). 

0 

(152), 

3 

X3 

(152), 

X4 

(152), 

X5 

<152), 

4 

SMLA 

(152), 

SMLB 

(152). 

SMLC 

(152), 

S 

EC 

(152). 

ER 

(152). 

SMLQ 

(152), 

6 

BIGB 

(152). 

CV 

(152), 

BC 

«152), 

7 

CHIH 

(152). 

CApAC  (152). 

CAPAR 

(152), 

• 

CRTPC 

(152). 

gofr 

(152), 

FEN 

(152), 

COMMON 

TELM 

(  37). 

EKLM 

(  37), 

1 

FRLM 

(  37). 

nlm 

(  37). 

OLM 

«  37), 

2 

2P1 

(  37). 

2P2 

(  37). 

SOL  10 

<  37), 

3 

RL 

(  37). 

HHOK 

(104) , 

ROK 

(104) , 

4 

HEAO 

(  12), 

MAXL 

9 

MAXLM 

OATA  FIRST/0./ 

**** 

IF(FIRST)  40.10,40 

10  IF 

( ROK ( 1 ) *  RDK (2) 

.GT.  0.1 

GO  TO  20 

USVLR  .  I A 
UI.ANK3#  1  API 
UI.ANK4  *  I  AMI 
dLANKS.  TH 
ASMLR  i  PUSHA 
ALPHA  •  HVA 
CB  ,  GA 


CB 

EPS  I 

KPDIB 

DTH2 

UTR 

AC 


•  RIA 

«  TPRINT 
.  0TH2P 

•  SNITCH 

•  AC03T4 


.  IB 

9 

1CA  , 

ICB  .KAP20120 

,  IBP1 

9 

1CAP1  , 

1CBP1  .KAP20130 

.  IBM1 

9 

icami  , 

1CBM1  , KAP20140 

,  TMAX 

9 

BLANK6, 

DELPRT  r KAP20150 

»  PUSHB 

9 

B01LA  , 

BOILB  , KAP20 160 

,  HVB 

9 

HCA  , 

HC-T  .KAP20170 

,  GB 

9 

GL  , 

GR  .KAP201H0 

,  RIB 

9 

ROIA  , 

ROIB  .KAP20190 

,  TA 

9 

TB  , 

TC  KAP20200 

,  OTH1 

9 

OTRMlN. 

DTMAX  .KAP20210 

,  CO 

9 

CMIN  , 

DELTA  .KAP20220 

,  CNVRT 

9 

SUMRA  , 

SUMRB  .KAP20230 

,  SI 

9 

S2  , 

S3  .KAP20240 

.  S9 

9 

S10  , 

Sll  .KAP20250 

,  S17 

9 

SIB  , 

S19  .KAP20260 

,  R  (152).  DELTAR(152) .KAP20270 

( 152) ,  SMLR 
1152) ,  PB1 


(152J.KAP20280 
(152)  KAP20290 


*  152) ,  RHO  ( 152) ,  THETA  < 152) .KAP20300 

*  152) ,  EK  (152)*  A  ( 152) ,KAP203lo 

*  152) *  C  (152).  X2  (152),KAP20320 

(152)*  X6  (152)*  X7  ( 152) .KAP20330 

(152)*  SMLD  (152).  5MLE  (152) .KAP20340 
(152).  SMLH  (152).  B1GA  ( 152) .KAP20350 
(152).  BR  (152).  CHIC  (152).KAP20360 

(152).  CRTC  (152)*  CRTR  ( 152) .KAP20370 

(152).  CAR  (152).  OKLM  (  37)  KAP20380 

(  37).  EEM  (  37).  FCLM  (  37),KAP20390 

«  37).  AMASNO(  37),  CHRNO  (  37),KAP20400 
(  37),  ECHCK  (  37),  RK  (104) ,KAP204l0 


KAP20430 

KAP20440 

•♦KAP20450 

♦♦♦KAP20460 


Sl=74.0010 
CALL  UNCLE 
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20  IL-KUK ( 1 ) 

IR-RUKI2) 

SUMG=U. 

DO  30  I=IL»IR 
30  SUMG=SUMG*G ( I ) 

SUMG  =  SUMG-.b*G(i«) 

40  DO  50  1=1.152 
50  SMLQ! I  )=0. 

T2=  TH  ♦  DTH2 

IF ( T2  .LT.  HDK ( 3 ) )  GO  TO  1000 
DO  60  J=4 . 52 

XFIRUiUJ)  *GT •  T2)  GO  TO  70 
IFIRDlUJ)  .EO.  0.)  GO  TO  1000 
60  CONTINUE 
70  J=  J-I 

TEMP (2)  =  RDK I J+40 ) 

S0LID18)=HDK1 J+50 ) 

IF (RUK ( J)  .LE.  Th)  GO  TO  60 

TEMPU)  =  !RDKIJ)-TH)*KDKi  J+49) *RDK ! J*50) * 1T2-RDK 1 J) ) 
TEMP (2)  =  ( RDK ( J ) -TH) ♦RUK  ! J+39  >  +KDK l J*40 ) *  1  T2-RDK ( J ) ) 
TEMPI*)  =  T£MP!2)/UTH2 
SOLID!  6)  =  TEMP!  1 )  /UTrl2 
80  BET*  =  4.I8679*SUMG*TE'1P!2)/S0LID!8)-I. 

SUMQ  =  0. 

SUMS  =  -.5*GIIL-1) 

DO  90  I=ILfIK 

SUMS  =  SUMS*«5*!G 1 I-I ) *G1 I ) ) 

TEMP! I )  =  TEMP12)*ISUMS/SUMG)**BETA 
SMLQII)  =  TEMP! 1) *011) 

90  SUMQ  =  SUMQ+SMLQ1 I) *4.18879 
RPI8  =  SUMO-SOLID  18) 

DO  9S  I  =  IL»  Il< 

95  SMLQII)  =  SMLU ( I ) • ( SOLID !6> /SUMQ) 
x000  FIRSTS  1. 

RE f UK N 
END 
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SIT  FOR  KAPPA/ST#  KAPPA/ST »  KAPPA/STD 
SUBROUTINE  KAPPA (l,.IM) 

C  OUTPUT  VERSION  IMA  I  INCLUDES  DIVIDE  CHECK  TEST 

Compiled  may  22.  i9u7  t-.bL 


COMPILED  ON  DECEMBER  tt»19d6»  BY  LAURA  NORRIS 

KAPP0020 

KAPP0040 

KAPPOOSO 


** 

****** 

•KAPP0070 

S  P 

U  T  T  E 

R  C  0  M  M  0 

N 

••KAPP0080 

♦♦KAPP0090 

•♦KAPP0100 

COMMON 

LMOA ( 37 ) » 

NR  • 

USMLR  .  I A 

.  IB 

t  ICA  # 

ICB  .KAPPOllo 

1 

KMAX 

•  BLANK 1 , 

BLANK2. 

BLANKS,  I API 

.  IBPl  .  ICAP1  , 

IC3P1  .KAPP0120 

2 

11 

*  1G  1 

NRAD  • 

dLANK4.  I AMI 

.  IBM1  .  ICAM1  , 

ICBM1  .KAPP0130 

5 

IIP1 

•  IGM1  • 

I ALPHA. 

BLANK5,  TH 

.  TMAX  .  BLANK6. 

DELPRT .KAPP0140 

4 

FREO 

.  CNTMAX. 

AR  . 

ASMLR  •  PUSHA 

.  PUSHB  .  HOILA  , 

BOILB  .KAPP0150 

S 

CVA 

»  Cvb  » 

SLUG  • 

ALPHA  .  HVA 

.  HVB 

.  HCA  . 

HCB  .KAPP0160 

b 

EMINA  .  EMlNb  » 

CA  . 

CB  .  GA 

.  GB 

.  GL  . 

GR  .KAPP0170 

7 

RHOL 

.  RHOK  • 

EPIO  . 

EPSI  .  RIA 

.  RIB 

.  RDIA  . 

RDIB  .KAPP0180 

8 

RPIA 

.  RPlb  . 

RPDIA  • 

RPDIB  .  TPRIWT.  TA 

.  tb  . 

TC  KAPP0190 

COMMON 

TO  . 

TE  . 

0TH2  •  0TH2P 

.  HTHl  .  DTRMIN. 

OTMAX  .KAPP0200 

1 

DTMAX1.  DTMAX2> 

UTMAX3. 

DTR  .  SWITCH.  CO 

.  CM1N  . 

DELTA  .KAPP0210 

2 

GAMA 

.  WCRIT  . 

SIGMAQ. 

AC  .  AC03T4*  CNVRT  .  SUNRA  . 

SUMRB  .KAPP0220 

4 

ROIA 

•  ROlAMlr 

KOIU  • 

K0IBP1.  GMS 

.  SI 

.  S2  , 

S3  .KAPP0230 

4 

S4 

»  Sb  » 

S6  . 

S7  .  SB 

.  S9 

.  S10  . 

SU  .KAPP0240 

5 

S12 

»  S13  * 

S14  . 

S15  .  S16 

.  S17 

.  SIB  . 

S19  .KAPP0250 

6 

S20 

»  EO  * 

FO  . 

TAU  .  ZERO 

.  R 

(152).  DELTAR(152) .KAPP0260 

7 

ASQ 

(152).  RO 

(152). 

VU  (152). 

ROD 

(152).  SMLR 

( 152) .KAPP0270 

« 

OELR 

(  37).  P 

(152). 

PI  (152). 

PB 

(152).  PB1 

(152)  KAPP02H0 

COMMON 

P2 

(152). 

SV  .152). 

RHO 

(152).  THETA 

(152) .KAPP0290 

1 

M 

(152).  E 

(152). 

El  (152). 

EX 

(152).  A 

( 152) .KAPP0300 

2 

V 

(152).  b 

(152). 

0  (152). 

C 

(152).  X2 

( 152) .KAPP0310 

4 

X3 

(152).  X4 

(152) . 

XS  (152). 

X6 

(152).  X7 

(152) .KAPP0320 

4 

SMLA 

(152).  SMLB 

(152). 

SMLC  (152). 

smld 

(152).  SMLE 

( 152) .KAPP0330 

b 

EC 

(152).  ER 

(152). 

SMLQ  (152). 

smlh 

(152).  BIGA 

(152) .KAPP0340 

b 

B1GB 

(152).  CV 

(152). 

UC  (152). 

BR 

(152).  CHIC 

(152) .KAPP03S0 

7 

CHIK 

(152).  CAPAC  (152). 

CAPAR  (152). 

CRTC 

(152).  CRTR 

(152) ,KAPP03b0 

8 

CRTPC 

(152).  GOFR 

(152). 

FEW  (152). 

car 

(152).  OKLM 

(  37)  KAPP0370 

COMMON 

TELM 

(  37). 

EKLM  (  37). 

elm 

(37).  FCLM 

(  37) .KAPP03B0 

1 

FRLM 

(  37).  «LM 

(  37). 

QLM  (  37). 

AM ASMS (  37).  CHRNO 

(  37) .KAPP0390 

2 

ZP1 

(  37).  2P2 

(  37). 

SOLID  (  37). 

echck 

(  37).  RK 

(104) .KAPP0400 

4 

RL 

(  37).  RHOK 

(104) . 

ROK  (104). 

THETAK (104) .  TEMP 

(  16) .KAPP0410 

4 

HEAD 

(  12).  MAXL 

. 

MAXLM 

KAPP0420 

KAPP0430 

••KAPP0440 

'♦♦♦*♦•*****♦*♦**************************♦***♦***** ****************KAPP0450 
COMMON  /LINOLT/  HNU.SGNL. IHMU.NHNU.HNUP.NT. IM. IN»DHNU» THICK* NY  KAPP0460 

KAPP0470 

KAPP0480 

AMASN0U8-34)  RESERVED  POR  DESIGNATION  OF  DIANE  TAPE  UNIT. 


o  n 
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NT=d 

SfaNLsO. 


M  S  IM 
II  —  N 

100  U0  200  J=1 f  MAXL. 

if(Il.lt.lkoa(ji>  oo  ro  joq 
200  CONTINUE. 

SI  s  IS. 0200 
CALL  UNCLE 

300  IH=MINU(LMUA(J)-1.M« 

J=  J  -  1 

IF(QLM( J«-17)  J400.JS0.400 
3S0  QLM(J*17)sAdS(0KLM(J) ) 

400  CONTINUE 

S0LlU(20)s  IL 
S0LlD(21)sIR 
S0LlU(22) sj 

IF( AMASNO ( J*17 )  .OT.  0.1  00  TO  600 
L  ~  2 

MATERL=0LK(J*17»  ♦  .5 
IF(MATEKl  .GT.200)  LSNATLKL  -  MO 
IF (MATERL  .EC.  1)  L=3 
IF (MATERL  .EO.  6)  LSI 
IF (MATERL  .Eu.  13)  Lsb 

IF  (MATERL  .EO.  101  .OR.  MATERL-  .EO.  103)  LSI 
IF(MATERL  .EO.  102)Ls» 

IF(L  .LT.  13)  00  TO  S00 
SI-  1S.0S00 
CALL  UNCLE 

SOO  GO  TO  (1. 2. 3. 4. S. fa. 7. 8. 9. 10. II. 12) *L 

1  CALL  KAP1 
GO  TO  700 

2  CALL  KAP2 
GO  TO  700 

3  CALL  KAP3 
GO  TO  700 

4  CALL  KAP4 
GO  TO  700 

A  CALL  KAPS 
GO  TO  700 

6  CALL  KAP6 
00  TO  700 

7  CALL  KAP7 
GO  TO  700 

8  CALL  KAP8 
GO  TO  700 

9  CALL  KAP9 
GO  TO  700 

10  CALL  KAP10 
GO  TO  700 

11  CALL  KAPVl 
GO  TO  TJO 

12  CALL  KAP12 
GO  To  700 

600  CALL  lii  ANA  (J) 

700  UO  800  IsiL.IR 

CAPAR(I)  s  AKlNKcAPAR(l) .  2.fc20tfa/lnETA(  D  ) 

800  CONTINUE 

CALL  OVCHK(KX) 

GO  TU  (810.  82o).  KX 
010  SI  =  IS. 0810 
CALL  UNCLE 
820  IL-In  ♦  i 

IF  (IL  .GT.  M)  RtTUKN 

GO  TO  100 

ENU 


KAPPliTO 
KAPP1190 
KAPP1210 
KAPP1230 
RAPP12S0 
RAPP1270 
RAPP 1290 
KAPP1310 
KAPP1330 
RAPP 1330 
RAPP 1570 

KAPP1390 
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4,  FOR  KAP6/JP#  KAPo/UP,  KAP6/JP1 
SUBROUTINE  KAP6 
COMPILED  NOVEMBER  11*  lVbo  «BL 

c  special  lap  koorn.t  fon  constant  input  multifreouency  opacities 

C  )  rttT  aiv (bl-6u)  SPtCIFILS  FHEmUENCT 

c  thltamoi-iouj  splCifies  opacity 


C.< 

c 

C* 

C. 

c* 


c 

c 


S  P 

U  T  T  £ 

K  CO 

COMMON 

LMOA (37), 

NH  , 

NSMLR  , 

1 

KMAX 

•  BLANK 1, 

bLANK2, 

BLANKS, 

2 

II 

•  IG  , 

NHAO  , 

uL ANK4 » 

3 

IIP1 

*  1GM1  • 

I ALPHA, 

BLANKS, 

4 

fkeg 

,  CNTMAX, 

AH  • 

asmlr  , 

5 

CVA 

,  CVU  , 

SLUG  , 

ALPHA  , 

6 

EM1NA  •  EMINB  , 

CA  , 

CB  , 

7 

RHOL 

,  nHOH  , 

CPIO  , 

EPS  I  , 

a 

RPIA 

,  RPIB  , 

HPOIA  , 

KPOIB  , 

COMMON 

TO  . 

Tt  , 

OTH2  , 

i 

UTN5X) >  OTMAX2, 

OTMAX3, 

OTR  , 

i 

GAMA 

,  WCRIf  , 

SI6MAO, 

AC  , 

3 

ROIA 

,  KOI AMI t 

HO  It)  , 

K0IHP1 , 

4 

S4 

,  SS  , 

S6 

S7  , 

5 

S12 

,  S13  , 

SI4  , 

SIS  , 

6 

S20 

,  EO  , 

FO  . 

TAU  , 

7 

ASG 

(152),  HU 

(152), 

VO 

• 

UELM 

(  37),  P 

(152), 

PI 

COMMON 

P2 

(152), 

sv 

1 

W 

(152),  E 

( 1 52 ) , 

El 

2 

V 

(152),  G 

(1521 , 

0 

3 

X3 

(152),  X4 

( i  52 ) » 

xs 

4 

SMLA 

(152),  SMlU 

(152), 

smlc 

5 

EC 

(1521,  ER 

(152), 

SMLQ 

BUb 

CHIH 


* 

7 

e  CRTPC  ( 

common 

1  FRLM  ( 
3t  IP  1  ( 

0  ML  ( 
4  HEAD  ( 


154).  Cv  (152) 
152) »  CAPAC  (ib2) 
1621*  GOFH  (152) 
TfcLM  (  37) 
37),  aLM  (  37) 
37),  ZP2  (  37) 
37),  HHOK  (104) 
12) ,  MAIL 


common 


1A 


IAM1 


ie  ,  ica 

IBP1  ,  1CAP1 

IBM1  ,  ICA»I 

IN  ,  TMAX  •  BLANKS 

PUSHA  ,  PUSHtJ  ,  MOIL  A 

HVA  ,  MVB  ,  MCA 

6A  ,  OB  ,  GL 

RIA  ,  RIB  ,  ROI A 

TPftINT,  TA  ,  TB 
0TH2P  .  0TM1  ,  OTRMIN 

switch,  co  ,  chin 

AC03T4,  CNVRT  ,  SUPRA 
GMS  ,  Si  .  S2 

se  ,  S9  ,  sio 

S16  ,  S17  ,  SIO 

ZERO  ,  R  (152) ,  OCLTAR ( 152 ) • 

(152),  ROO  (152),  SMLR  (152), 

(152),  FB  (152),  PB1  (152) 

(152) »  RHO  (152),  THETA  (152), 

(152)#  |K  (152),  A  (152), 

(152),  C  (152),  X2  (152), 

(152)#  X6  (152)#  X7  (152), 

(152),  SMLO  (152),  S*#LE  (152), 

(152),  SMLH  (152)#  BIGA  (152), 

(152),  BR  (152),  CHIC  (152), 

(152),  CRTR  (152), 
(152>,  OKLM  (  37) 

(  37),  FCLM  (  37), 


•  • 
•  • 
•  • 

ICB  , 
1COP1  , 
IC8M1  , 
OELPHT, 
BOILH  , 
HCB  , 
GR  , 

ROIB  , 
TC 

OTMAX  , 
OELTA  , 
SUMHb  , 
S3  , 
Sll  , 
S19 


OC 

CAPAK  (152),  CRTC 
FEW 
eklm 

OLM 


t  *.52)  •  CAR 
(  37),  ELM 


(  37),  AMASNO(  37),  CHRnO  (  37), 


SOLIO  (  37),  ECHCK  (  37),  RK 


ROK 
MAXLM 


(104)#  THETAM104),  TEMP 


(104), 
(  16), 


•  » 


COMMON  /LINOLT/  HNU,SGNL, IHNU»NHNU#HNUP»NT» IM,lN#OHNU, THICK, NT 
IF  (IHNU  .EO.  1)  NHNU  =  THETAK(lCl) 

HNU  s  THETAK(IHNU#60) 

IK  C  SOLIO  20) 

IL  =  sol:o(21) 

00  10  1  s  U,  IL 

IF  (IHNU  ,GT.  0)  GO  TO  6 
GRET  KAPPA 


CAPAh  1)  =  THtTAK(l02) 

GO  TO  10 

C  MULTIFREOUENCY  KApPA 

6  CAPAK ( I )  =  THLTAK(IHNU#BJ) 
10  CAPAC(l)  =  CAPAK(l) 

RETURN 

EHO 
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m,T  FOR  KAP12/JP.  KAP12/JP.  KAP12/JP1 
SUbROUTlnE  KAP12 


* 


KAP10010 
KAP10020 
ESS  0040 


C 

C 

C 

c 


* 


b  P 

U  T  T  £ 

rt  C  0  M  M  0 

N 

*« 

** 

COMMOh 

LMOAl 3/) , 

NR  • 

NSMLR  .  IA 

.  IB 

.  ICA  . 

*• 

ICB  . 

1 

KMAX 

»  BLANK 1, 

BLANK 2. 

BLANKS.  I API 

.  ibPi  .  icapi  » 

ICBP1  . 

2 

11 

.  1G  » 

NRAO  » 

ULANK4.  I  AM 1 

.  IBM1  .  ICAM1  . 

ICB’*1  . 

3 

11P1 

t  1GM1  r 

I ALPHA. 

ULANK5.  TH 

.  TMAX  .  BLANK6. 

DELPHT. 

4 

FKEU 

*  ChTMAXi 

AR  • 

ASMLR  .  PUSHA 

.  PUSHB  .  BOILA  . 

BO  I LB  . 

b 

CVA 

f  CVB  • 

SLUG  . 

ALPHA  *  HVA 

.  HVB 

.  HCA  . 

hcb  . 

b 

EMINA  »  EMIHi  . 

CA  • 

CB  .  GA 

.  GB 

.  GL  . 

GR  . 

7 

KHOL 

,  KHOK  * 

EP10  . 

EPSI  •  HI A 

.  RIB 

.  ROIA  . 

ROIB  . 

6 

PP1 A 

t  RPlb  t 

RPD1A  , 

RP01B  .  TPRINT .  TA 

.  TB  . 

TC 

COMMON 

TO  # 

TE  . 

UTH2  *  DTH2P 

.  OTH1  .  otrvin. 

dtwax  ^ 

1 

DTMAX1 1  0TMAX2  t 

OTMAX3. 

OTR  .  SWITCH.  CO 

.  CM IN  • 

DELTA  . 

2 

GAMA 

t  mCHIT  , 

SIGMA J. 

AC  >  AC03T4 .  CNVRT  .  SUMRA  . 

SUMRB  » 

3 

ROIA 

t  HO I AMI r 

KOIH  • 

HOIUP1 •  GMS 

.  SI 

.  S2  . 

S3  . 

4 

S4 

t  bb  t 

Sb  . 

S7  .  SB 

.  S9 

.  S10  . 

Sll  . 

b 

S12 

•  SIS  » 

S14  . 

SIS  .  S16 

.  S17 

.  SIB  . 

S19  , 

b 

S2U 

»  EO  i 

FO  . 

TAU  .  ZERO 

.  R 

(152).  DELTARI 152) . 

7 

ASO 

(lb2) •  HU 

(152) . 

VO  (152) . 

ROD 

(152>.  SMLR 

(152). 

6 

OELk 

(  47).  P 

( 152) f 

PI  (152). 

PB 

(152).  PB1 

(152) 

COMMON 

P2 

(152). 

SV  (152). 

RHO 

(152).  THETA 

(152). 

1 

w 

( 1S2) .  E 

(152). 

El  (152). 

EK 

(152).  A 

(152). 

2 

V 

(1S2).  G 

(152). 

0  (152). 

C 

(152).  X2 

(152). 

3 

xs 

(lb2)»  X4 

(152). 

Xb  (152). 

Xb 

(152).  X7 

(152). 

4 

SMLA 

C lb2> .  SMlU 

(152). 

SMLC  (152). 

SMLD 

(152).  SMLE 

(152). 

b 

tc 

(lb2) .  tH 

(152). 

SMLQ  (152). 

smlh 

(152).  eiGA 

(152). 

b 

BIGd 

(152).  Ctf 

(152). 

BC  (152). 

BH 

(152).  CHIC 

(152). 

7 

CHIR 

(152).  CApAC  (152). 

CAPAK  (152). 

CRTC 

(152>.  CRTr 

(152). 

t) 

CRTPC 

(152).  GUFK 

(152). 

FEW  (152). 

CAR 

(152).  OKLm 

(  37) 

COMM''1'' 

TtLM 

(  37). 

EKLM  (  37) . 

elm 

(  37).  FCLM 

(  37)* 

1 

FRLM 

(  37),  MLM 

(  37). 

OLM  (  37) . 

AMASNO(  37).  CHRNO 

t  37), 

2 

ZP1 

(  37).  ZP2 

(  47). 

SOLID  (  37). 

echck 

(  37).  RK 

(104), 

S 

KL 

(  37).  NHOK 

(104). 

ROK  (104). 

THETAK(104),  TEMP 

(  lb), 

4 

HEAJ 

(  12).  MAXL 

. 

MAXLM 

ILSSOLIU(Sl)  KAPlOOSo 

*» 


IKSSOLIU(20> 

J=S0LlD(22) 

CHRNS92.0 

AMASNS4.017E49 

ZPAS2.408E-03 

ZP8S3.B21E4U4 

DO  1000  IslK.lL 

IFITHtTA(l) .NL.O. )  GO  TO  1 


KAP10030 

KAP10040 

KAPlOObO 

KAP10070 

KAP10080 

KAP10090 

KAP10100 

KAP10U0 


o  u 


f 

I 
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t«PA*(l)=.2 
CrtPAC( I )=.2 
00  TO  1000 
1  IXT=1 

TtaMM (j)=THtTA(l)**2 
Tc.MP(4)=TtMIM3)**2 

rt'Hi’(D)=TtiLr«(  n**i.b 

c  ♦♦•***«•»*».***♦« 

IF (SV(I).Gt.lO.  160  TO  200 

IF ( SV ( 1 ) .Lt • 1 .  )00  TO  10 

1X1=2 

SVlSSVtl) 

svtnsio. 

UTUT=„LOu(  10./SVl»/(  2.3025851) 

uO  TO  20U 
b  SV(1)=1. 

TfcMP(u) =CAHAKl i ) 


10  Ir (ThuTA(1)«1000.0>1X.12.14 

12  CAPAMI)=5.40t+b/<  It  'XP t  5 )  *  ( 1 . 0*1  .£-b*SV  ( I )  *TEMP (3)  )  >413.1* 
l  aUHnsvun 

CAPAK(l)  =  AMAXl(uKLM(J417)  •  CAPaK(I),  .2) 
v»0  TO  20 

14  CAPAK(I>  =  U.041.75E12/TL-IP(4)  )*(.0/8942.784t21/ITEMP(3)*(7.6£l3* 

1  aUHl  (SUNT  (SV  ( 1 ) ) )  ♦  TLMPUUSVU)  ))) 

cAPAK(l)  =  AMAX1(0KLM(J+17)  •  C  APAN ( 1 ) >  .2) 

20  60  To  (350,340) >1x1 

C  **♦•♦*•♦*•*•<<*«** 

200  CONTI, .Ut 

IF  (ThtlA(I)“2.0)  201.201,202 

201  U-K=l.t2 
60  To  300 

202  Ir  (  Tilt  I A  ( 1 )  -20.0)  203.203.204 

203  tFF=9.t2/(lHLTA(I)*1.0)*«2*2.5E-5*THETAtl)**5 
60  TO  300 

204  IF  (TMtTA(I)-lOO.U)  20S.205.206 

20b  tFF=h.5bi.5/TMLTA(ll**345.c:-5*THETA(I)**3 
60  To  300 

20b  tFF=o.044.4tb/THtTA(I)**2 
30b  CONTI NUt 

mS=SuHT ( IhC I A ( 1 ) ) 

MSA  =  Ftv  li)**2/Sv(I) 

IF(FL*(1)  .tl.l.)  60  TO  3JU 
■SA=**jA*FLM  ( 1 ) 

60  TO  33b 

330  MSA  =  AMnKMSA.  l.tlU/A  ;aSN*THETa(1)*WS*E*P(-8.0/THETA(I))) 

335  CAPAK(l)  =  AhASN**2*9,0bc.-l4/THLT A ( I ) **3*MSA/MS 
CAPArt  ( 1 ) =AMAAl (0KlM( J+17) *tFF»CAHAM ( 1 1 . .2) 

60  TO  (350.5). 1X1 

C  •♦***••****•»**** 

340  CAPAk ( 1 ) =EJO*( AL0o( TtWP(b) ) ♦ ( AU06 ( C AFAR ( 1 ) )-AL0G(T£PP(6) )  UOTOT) 

svmssvi 


350  #50= 13. b/THEl A ( 1 ) * ( CHHN*  »2 ) 


IF (Fta ( 1 ) .£0.0 . )  oO  TO  370 
360  »SC=1 ,C410/ANASN*TtNP ( 5) /Fta ( I ) *S7 ( 1 > 

60  To  360 
370  MSC=  1. 

360  CONTINUE 

CAPAC ( 1) =.67*CAPArt ( 1 )  *AMNl  ( 1. OkaSU. 1 . 0 ♦ AL06 ( WSC ) } 
CAP AC ( l ) SANAA 1 ( CmPAL ( 1 ) . C APaH ( 1 )  ) 

000  CONTINUE 
HETUNN 
END 
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KAP102,:0 

KAP10210 

KAP10220 


KAP102nO 

KAP10270 

KAP10200 

KAP10300 

KAP10310 

KAP10320 


*  * 


KAP10410 

KAP10420 

KAP10430 

KAPI0440 

KAP104S0 

KAP104bO 

KAP10470 

KAP104HO 

KAP10440 

KAP10500 

KAP105I0 


•  * 


KAP10600 


KAP106I0 


KAP10630 

KAP10640 

KAP10650 

KAP10660 

KAP10670 
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Or  FOR  RTAPL/OHIC.  RTAPcVORlG.  RTAPE/A1 

SUBROUTINE  RTAPE 1  iiTAPE  » t  fCLE)  RTAP0010 

c 


COMPILED  APRIL  4.  19o7  WBL 

C'  SPECIAL  VERSION  FOR  CON.PTON  SCATTERING  CODES 


c* 

****#******#*#**#*«»******«♦♦♦****••*•*•**#•*••**•*•♦** ♦•♦♦•••♦♦•♦••••RTAP0020 

c 

•RTAP0030 

c. 

S  P 

U  T  T  t 

R  C 

0  M  M  0 

N 

**RTAP0040 

c* 

♦•RTAP0050 

c* 

••RTAPOObO 

COMMON 

LMUA (37) t 

NR  « 

NSKLR 

«  IA 

.  IB 

,  ICA  , 

ICB  *  RTAP0070 

1 

KMAX 

»  BLANK1, 

BLANK 2. 

BLANK 3 

,  I  API 

»  IBP1 

,  IC API  . 

IC8P1  .RTAP00H0 

2 

II 

#  IG 

9 

NKAD  • 

ULANK4 

«  I  AMI 

»  IBM1 

,  ICAMl  , 

ICBM1  .KTAP0090 

3 

IIP1 

9  IOMl  9 

I ALPHA, 

ULANK5 

,  TH 

,  TMAX 

»  BLANK6, 

DELPRT .RTAPOlOO 

4 

FREB 

,  cntmax# 

AR  , 

ASMLR 

,  PUSHA 

,  PUSHB  .  BOILA  . 

BOILB  .RTAPOllO 

s 

CVA 

#  CVD 

9 

SLUG  , 

ALPHA 

«  HVA 

»  HVB 

,  HCA  , 

HCB  (RTAP012Q 

b 

ENINA 

.  EM I NO  « 

CA  , 

CB 

,  GA 

,  GB 

,  GL  » 

GR  .RTAP0130 

7 

RHOL 

»  HHOR  # 

EPIO  , 

EPSI 

,  RIA 

,  RIB 

»  RDIA  , 

RDIB  .RTAP0140 

a 

RPIA 

5  HP lb  • 

RPDIA  , 

RPDIB 

.  TPRINT 

,  TA 

.  TB  . 

TC  RTAP0150 

COMMON 

TO 

9 

TE  , 

0TH2 

.  DTH2P 

,  DTHl 

»  DTRMIN, 

DTMAX  , RTAPOlbO 

1 

DTMAX1,  0TMAX2# 

DTMAX3, 

OTR 

,  SWITCH 

,  CO 

»  CMIN  , 

DELTA  .RTAP0170 

2 

GAMA 

•  WCKIT  , 

SIGMAS, 

AC 

,  AC03T4 

,  CNVPT  ,  SUMRA  , 

SUrtRd  (RTAP0160 

3 

ROI A 

.  ROI AMI , 

KOIB  , 

R0IBP1 

,  GMS 

.  SI 

,  S2  , 

S3  .RTAP0190 

4 

S4 

»  Sb 

9 

Sb  , 

S7 

,  SB 

.  S9 

»  S10  , 

Sll  .RTAP0200 

b 

S12 

*  S13 

9 

S14  , 

S15 

,  Slb 

.  S17 

,  su  , 

S19  .RTAP0210 

b 

S20 

»  £0 

9 

FO  , 

TAU 

,  ZERO 

,  R 

(152),  DELTARt 152) .RTAP0220 

7 

ASQ 

(152). 

HO 

(152). 

VD 

(152) . 

RDD 

(152),  SMLR 

( 152) , RTAP0230 

a 

OELH 

(  37), 

P 

(152), 

PI 

(152). 

PB 

(152),  PB1 

(152)  RTAP0240 

COMMON 

P2 

(152). 

sv 

(152), 

RHO 

(152),  THETA 

( 152) .RTAP0250 

1 

W 

(152), 

E 

(152). 

El 

(152). 

EK 

(152),  A 

(152),RTAP02b0 

2 

V 

(152). 

G 

( 152 ) , 

D 

(152). 

C 

(152),  X2 

( 152) .RTAP0270 

3 

X3 

(152), 

X4 

(152). 

X5 

(152), 

Xb 

(152),  X7 

( 152) .RTAP0280 

4 

SM(.A 

(1>2)» 

SMLU 

(152). 

SMLC 

(152). 

smld 

(152),  SMLC 

( 152) .RTAP0290 

b 

EC 

(152), 

EP. 

(152). 

SMLO 

H52) » 

smlh 

(152),  BIGa 

( 152) .RTAP0300 

6 

BIGri 

(152). 

CV 

(152), 

BC 

(152). 

BK 

(152),  CHIC 

( 152) .RTAP0310 

7 

CHIK 

(152). 

CApAC  (152), 

CAPAR 

(152). 

CRTC 

(152),  CRTR 

(152) .RTAP0320 

a 

CRT  PC 

(152). 

GOFK 

(152). 

few 

(152). 

CAR 

(152),  OKLM 

(  37)  RTAP0330 

COMMON 

TfcLM 

(  37). 

eklk 

(  37). 

elm 

(  37),'  FCLM 

<  37I.RTAP0340 

1 

FRLM 

(  37), 

WLH 

<  37). 

OLM 

(  37). 

AMASNO(  37).  CHRNO 

(  37) .RTAP0350 

2 

ZP1 

(  37). 

ZP2 

(  37). 

SOLID 

(  37). 

ECHCK 

(  37),  RK 

( 104) ,RTaP0360 

3 

ML 

(  37). 

HHOR 

(104), 

RUK 

(104), 

TH£TAK ( 104) .  TEMP 

(  16).RTAP0370 

4 

HEAD 

(  12), 

MAXL 

t 

MAXLM 

RTAP0380 

c 

RTAP0390 

c 

•♦RTAP0400 

c*< 

>•«••••* 

>*••• 

COMMON  /LINOLT/  HNU.SGNL. IHWU»NHNU»HNUP»NT» IM, IN.DMNU. THICK.NT 
COMMON  /PALMER/  Fl0(152),  FIK152).  FI2(152)»  FI3(152>,  FQ0<152). 

2  FBI ( 152) »  Fo2(152)»  FQ3(152:r  JI  RUM 

C  RTAPE  DEFINES  JORUM  ON  RESTARTS.  WTAPE  OEFlNES  IT  ON  INITIAL  STARTS. 


NMNU  S  LM0A(36) 

REWIND  NTAFL 
10  READ  (NTAPE)  COUNT 

If  (COUNT.LT, O..OH.COUNT.OT.CTCLE)  GO  TO  30 
IF  (ABS(FO)  .GT.  l.E-20)  READ  (NTAPE) 


RTAP0420 

RTAP0430 

RTAP0440 
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IF  (AbSICOUNT  -  CYCLE)  .lT.  l.E-201  GO  TO  20 
WRITE  (6*50)  COUNT 

50  FQKMAT  ( IRQ  5X*  toHCYCLE  Fo.O*  8H  SKIPPED) 

READ  (NTAPE) 

UO  16  I  -  1*  nhnu 
15  READ  (NTAPE) 

00  To  10 

20  READ  (NTAPE)  (LMUA(l)  *  1  =  1*941)5) 

JURUN  =  25 
LMUAI36)  :  NHNU 
UO  25  I  S  1*  NHNU 
READ  (NTAPE)  FIO*  FI1*  FI2*  FI3 
25  »RITE  (JURUM)  FIO*  Fll*  FI2*  PI3 
RETURN 
50  SI  =  40. 

WRITE  (6*  40)  SOLID (34) 

40  FORMAT  * 1H0  5X  6HCYCLE  F6.0*  1TM  NOT  ON  DUMP  TAPE  ) 
CALL  EXIT 
END 


RTAP0460 


RTAP0470 

RTAP04BO 


RTAP0490 

RTAP0500 


RTAP0520 
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Or  FOR  WTAPE/iP*  *TAPt/SP*  .vT  APL/SPl 
»  ,  r  i  ,.c  *T  APt 


SJBROuUNE  wTAPt 

WfWoN  scattering  codes 

C  . . . .A.....,*,..* 


S  P  U  T  T  C  M  COMMON 


COMMON 

1  KM  AX 

2  II 

3  IIP1 

4  FREQ 
3  C  V  A 


LMUA(37) 
r  BLANK 1 
.  10 
,  10M1 
,  CNTMAX 
•  CVO 


EhiNA  *  EMINii 


COMMON 


OTMAXl.  0TMAX2 


2  GAMA 

3  ROI A 

4  S4  ' 

3  S12 

b  S20 
7  ASO 

6  OELK 
COMMON 

1  W 

2  V 

3  X3 

4  SMLA 

5  EC 

b  BIOB 

7  CHIK 


NH  *  NSMLR 
BLAIJK2  •  JLANK3 


r  WCHIT  »  ! 
.  KOI AMI*  I 
.  S5  * 

.  S13  * 

*  EO  *  I 

(1521*  KU 
(  37).  P 
P2 

( 152) '  t 
(1521*  G 
(152).  X4 
(152).  jMLrt 
(1521*  EK 
( lb2) •  CV 


NRAO  * 
I ALPHA. 
AH  * 
SLUG  . 
C  k  * 
LPIO  * 
RPOIA  . 
TE  * 
OTMAXJ. 


SIGMAu *  AC 


BLANK** 

oLANKb 

aSmlk 

ALPHA 

CB 

EPSI 

RPOIB 

JTh2 

UTR 


HOIU  «  K0IBP1 

S6  *  S7 

S14  *  Sib 

FO  *  TAU 

(152)*  VO 
(152) *  PI 
0  52).  SV 
U52).  El 
( lb2) *  0 
(lb2) '  Xb 
(  ( 152) ,  SMLC 

(152)*  SMLQ 
( lb2) *  UC 


IA  *  IB 
I  API  *  IB) 
I  AMI  *  IBf 
TH  *  TMi 
PUSHA  *  PU! 
HVA  *  HVI 
OA  *  GB 
HIA  »  Rll 
TPRINT.  TA 
UTH2P  *  OTI 
SWITCH.  CO 
AC03T4.  CN’ 

gms  .  si 
se  .  S9 

Sib  .  SI 
ZERO  .  R 
(152).  ROD 
(152)'  PB 
(152).  RHO 
(152)i  EK 
( 152)  •  C 
(152).  X6 
( 152) *  SMLO 
(152)*  SMLH 
( 152) ,  OH 


IB  .  ICA 
IBP1  .  ICAP1 
1BM1  .  ICAM1 
TMAX  .  BLANK6 
PUSHB  .  BOILA 
HVB  .  MCA 
GB  *  GL 
RIP  .  RDIA 
TA  .  TB 
OTHl  .  DTRMIN 
CO  .  CMIH 
CNVRT  .  SUMRA 
SI  *  S2 
S9  .  S10 
S17  .  S18 


WTAPOOlO 


WTAP0030 
>***♦**• WTAP0040 
•WTAP0050 
•♦WTAP0060 
••WTAP0070 
•♦WTAP0080 
ICB  .WTAP0090 
ICBP1  , WTAP0100 
ICBM1  • WTAP0110 
DELPRT .WTAP0120 
BOILB  .WTAP0130 


BOlLB  .WTAP0130 
HCB  .WTAP0140 
GR  . WTAP0150 
ROIB  .  WTAPOlbO 
TC  WTAP0170 
OTMAX  .WTAP01B0 
OELTA  .WTAP0190 
SUMRB  .WTAP0200 
S3  .WTAP0210 
Sll  .WTAP0220 
S19  ,WTAP0230 


(152).  DELTAK(152).WTAP024o 
(152).  SMLR  ( 152) .WTAP0250 
(152).  PB1  (152)  WTAP0260® 
(152).  THETA  ( 152) .WTAP0270 


(152).  CAPAC  (152).  CAPAR  «152).  CHTC 

'  *  ^  r  ..  ...  Mr<lt  .  r  AU 


CRTPC  (152).  GOfK 


COMMON 

1  FRLM 

2  ZP1 

3  RL 

4  MCA  J 


TtLM 

(  37).  WLM 
(  37).  ZP2 
(37).  RMOK 
(  12).  MAXL 


(152).  FEW  (152)*  CAR 
(  37).  EKLM  (  37).  ELM 


(152).  A 
(152).  X2 
(152).  X7 
(152).  SMLE 
(1S2>.  BIGA 
(152).  CHIC 
(1S2>.  CRTR 
(152).  OKLM 
(37).  FCLM 


(152) .WTAP0200 
( 152) .WTAP0290 
( 152 ) *  WTAP0300 
( 152) .WTAPOSlO 
(152) .WTAP0320 
( 152) .WTAP0330 
(152).WTAP034o 
(  37)  WTAP0350 
(  37) .WTAP0360 


!  J?;;  OLM  (  37)*  AMASMO (  37).  CHRNO  <  ^).WTAP037o 


(  37).  SOLIO  (  37).  ECHCK  (  37),  RK 
(104).  KOK  (104).  THETAK(104).  TEMP 
•  MAXLM 


(104) .WTAP0360 
(  16),WTAP0I90 
WTAP0400 
MTAP0410 
••WTAP0420 


*  iisss:  ss$s?%s!»u 

t  FMIIMI*  F0EHS2).  F0SIIS8).  JORUM 
COMMON  /CNTML/  SCTCLE.  JMUCT  WTAP0440 

C  MTAP0450 

NSS5  WTAP0460 

WSS-3.0  WTAP0470 

WRITE  (N)  SOLIO(lO)  . 

IP  ( ABS(FO)  .GT.  l.t-20)  WHITE  (N)  TH 


WRITE  (N) (LMQA(l) ,Isl.94o5) 

T“si.lS?;if',!sT.  SCTCEE.  RE  FI  MO  JORUM 

“?  .sJliItM’. ^“SCTCEE,  KE*0  .UORU«l  F».  FI,.  FI2.  F» 
lu  SK  SimM™1^  strmts.  -tjre  o«st.t  on  REST.R.S. 

IP  (SOL10(34)  .GT.  0.  rOi(r  SOLIO(lB)  rGTr, 

JORUM  s  25 
REWINJ  JORUM 
00  lb  Is  1*  NMNU 
15  WHITE  (JORUM)  FIO*  PI1*  FU*  FI3 
20  WRlTt  (N)  WS 
BACKSPACE  N 
RETURN 
ENO 


WTAP0490 


WTAP0500 

WTAP0510 

WTAP0560 

WTAP0570 
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Bx  FOR  MP2/XXbMP2/XXbMP2/XXX 
'  SUBROUTINE  MP2 

C  OUTPUT  VERSION  —  QOILb  CNOCTN  DELETED 

c  3MAI0010 

. . . .  ,  3MAI0030 

C  ********* ************************************3MA I 004o 

S*  sputter  common  mSKJooJS 

d  •♦3MAI0070 

COMMON  LMOA ( 37) »  NR  ,  NSMLR  ,  IA  t  IB  ,  ICA  ,  ICB  VsMAIOOOn 

1  KMAX  b  ULANK1 b  ULANK2»  ULANK3*  IAP1  .  I0P1  b  ICAP1  #  ICBP1  #3MAI0100 

2  JJr,#  '  *  ^RAD  *  UI-ANK4b  I  AMI  b  IBM1  «  ICAM1  ,  ICBM1  b3MAIOUo 

4  FRii  '  rSriax'  foLPHA'  U^ANK!>'  ™  *  TMAX  ,  BLANK6#  DELPRT 1 3MAI0120 

5  CWAU  *  CNT^AXt  AR  ,  ASMLR  #  PUSMA  #  PUSHB  »  HOILA  ,  BO I LB  .3MAI0130 

6  EMIN*  *  rMiuu  '  h  ®  *  *  MVB  '  HCA  *  HCB  »3MAI0140 

»  «"Jr  :  Kir :  :  «f«  :  s?„  :  ;  a,,  rssjsiis 

#COMMOI*  *  fBIb  *  2rDIA  '  H?°1B  '  TPHINT.  TA  .  TB  .  TC  9MA10170 

1  0?Ja««  U™2  *  DTH2P  *  0TH1  »  UTRMIN,  DTMAX  ,3MAI0lH0 

2  2amAX1'  SImX  r  UJR  '  c°  '  CMIN  ’  DELTA  '3MAI0190 

*A”A  *  * *  SIGMAO*  mC  b  AC03T4 »  CNVRT  #  SUMRA  ,  SUMRB  .3MAI0200 

4  SaIA  ’  B®IAM1*  R0IU  ’  <»MS  *  SI  ,  S2  b  S3  b3MAI021o 

5  tia  *  '  c?u  *  SL  '  £8  *  S9  *  S1°  *  Sl1  »3MA 10220 

?  fi2  '  '  *iH  *  SIS  »  S16  *  S17  »  S18  9  S19  b3MaI023o 

7  ASQ°  ijJ?  WMa,:  ’.2ER?  ’  R  U52,'  DELTAR ( 152)  9  3MAI0240 

m  £?„  J1!!}'  2°  jfSfJ*  ™  I1*2*'  RDD  ,152,»  SML«  1152) b3MAI025o 

COMMON  71  PP  «  '  m!2}'  PB  U52)*  PB1  <152>  3MAI0260 

COMMON  P2  152  .  SV  152).  RHO  1152).  THETA  I 152) ,3MAI0270 

2  V  jjffj!  «  J}“}»  EI  !f*2}'  EK  <1S2).  A  U52).3MAI02H0 

5  «  !}»!!: Mil:  ;5  ijgj:  u  !,‘ti!:  5? 

b  (152)'  EH1-0  {}H}*  l^C  SMLO  I152)»  SMLE  1152)  ,3MAI03lo ' 

ft  MIGh  IJm!*  r2  i f ?*2  '  *!2  »  SMLH  816a  ( 152)  > 3MAI0320 

ft  Hllitt  (1S2)b  CV  (152) f  BC  (152)*  BN  (152) b  CHIC  (152) b3MAI033o 

7  CHIR  (152)*  CApAC  (152)b  CAPAR  (152)'  CKTC  (152)#  CRTR  ( 152) b 3MA1034D 

•oST  <1M,#  ?ss  \l\iV  ,(152»'  car  ‘i*2’*  S2  i  “!  5!i8!o 

*  Si"  !  «!:  5S  !  55!:  ^,D !  55!:  5?!:  ;rra  !io”!:S!!S 

*  WAD  !  is!'  «a!l  pa!.  >  110,1 '  TB£,»III‘»*1’  9E»P  I  UI.3«a!o»o 

’  r*”AU  1  *«*•  M*XU  9  MAXLM  3MAI0400 

C  9MAI0410 

C  •••«S!?r4***NTRL/  SCTCLE  9  *UMULT* . . . ***** . SMAIoJJJ 

EQUIVALENCE  (S1*bEUITMF)  *  ***  . * . *****sTt ISJf 2 

C  HYDRO  SUB-CYCLE  VERSION  V/25/63  *3MAI047o 

*#*  *TOSo!*#******** . . . * . ****** . 3MAI0480 

IF(BLANK2  *GT • l «E-15) TPRINTSTH  ♦  BLANK2 

9  IF  (aARN(IHM) )  10b  ftOOt  600  3MAI057Q 
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10  IF  (tKLK(lV))  bill*  520.  501 
501  continue. 

CALL  AUTORZ 
520  IFIGM5)530»2Ul»b3(j 
550  CALL  UEZ0NE 
201  CONTINUE 
40  CALL  1‘UELT 
TD=TU*1. 

IF ( BLANK2  .LT.  l.c-15)  GO  TO  170 
IF  I TU  .GT •  FREG)  GO  TO  171 
IFTTPHlNT  .GT.  TH+  0TH2  J  GO  TO  100 
TPKINTe  TPRInT  ♦  ULANK2 
IFJTH  .GT.  TPRINT )  bLANK2  s  0. 

GO  TO  171 

170  IF  T AMOUI SOL1Q T1B)+1.»FREJ).GT,  0.5>GO  TO  100 

171  TU-0. 

100  CONTINUE 


integral  suk 


IF(PUSHA)  2000.2010.2001 

2000  IBOslIJMl 
GO  TO  2010 

2001  I BO  s  1A 
2010  CONTINUE 

204  CALL  HYUKO 
202  CALL  PTnO 
C 

C  SELECT  SOURCE 

IF  (ABSIS6)  .LT.  l.E-20)  Go  TO  80 
CALL  GUE 
C 

80  CONTINUE 
0THSUTH2 
ZP1 ( 1U)-0TH2 
2Pl(19>=0.0 

84  CONTINUE 

IF  (AbS(S2>  .LT.  1.E-20I  GO  TO  88 

C  CHECK  TO  SEE  IF  RAUIATIGN  NEEUS  TO  BE  DONE  ON  CURRENT  SUBCYCLE 

85  IFTTO.LT. 0.5  .OR.  S0LJ0ll4>*l.l.«T.CNTMAX>C0  TO  86 
IF  tBLANK3-TM-UTl12-0TH»ZPltl8J  J  86*88.88 

66  CALL  KADTN 
66  CONTINUE 
CALL  ENCALC 
CALL  ECALC 
NHADSNRAO- 1 

IFINHAO.LE.O.OR. (2P1T 1BI/OTK) .LT. 1.5)  60  TO  110 

105  CALL  SSNTCH  (6.  K000FXI 
60  TO  (106.  1071.  KUOOFX 

106  SI  *  1.010b 
60  TO  610 

107  CONTINUE 

IF  (KARN(IHH) )  1 08*  60S.  605 
106  2Pl(lB)S*pltl8>-UTK 

ZI»1»19)*ZP1(19>U.U 


9MAI0S80 
3MAI0590 
3MA10600 
3HAI06T  0 
3MA1  3 
3HA  >(l30 
3MA10640 


♦3MAI0650 

♦3MAI0660 

♦3MAI0670 


9HAI0720 

3HAI0730 

3MAI0740 

3NAI0750 

3HAI0760 


3MAI0950 

3MAI0960 

3MAI0990 

SMAU000 

3MAI1010 

3MAI1020 


3MAI1050 
SNA I 1060 
3MAU110 
3MAI1120 
3MAI1130 

3MAI1150 
3MAI1160 
SMA1U70 
3MAI1180 
3NAU190 
3MAI1200 
3MAI1210 
MAI  1220 
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110 

c 


111 

,0V 

160 

190 

19b 

210 

250 

301 

600 

605 

610 


GC  TO  B4 
CONTINUE 

FORCE  5V  TO  BE  CONSISTENT  WITH  R  ANU  G 

DO  111  I=IA# IUH1 

SV ( I ) =DELT AR  C 1 1 /G ( 1 1 

IF(IA»-PNA.EG.i>  00  TO  111 

TEMPI 1>=K (1*1 )♦«<!> 

IFlIALPHA.EQ.il  Tt^'P ( 1 1  =  T£MP (  1)*R( 1*1 )*R (I ) **2 
SVUlsSWUlwTLMPd) 

CONTINUE 

SOLlUUa)  =  P(IUCi) 

BLANK4  =  BLANK 4  ♦  SOLID! 20) *DTH2 
SOLID!  IB)  rSOLIDUe)  *1.0 
COUNTSSOLIO(IB) 

TH*TH*0TH2 

IF  (COUNT  -  CNTMAX)  190#  301#  301 

IF(TH  .OT.  THAX)  00  TO  301 

IF  ( ABS! BLANK 1)  »LT •  0.1)  00  TO  195 

IF  (AKOO! SOLID! IB) •  BLANK 1)  .LT.  0#5)  CALL  WTApE 

IF  (TU  .OT.  0.5)  GO  TO  210 

CALL  PRINT 

IFIBLANK1  .LT.  0.5)  CALL  wTAPE 
CALL  SSHTCH(6#KOOOFX> 

60  TO (250# 5) tKOOOFX 
SI  s  1.0250 
60  TO  610 
SI  s  1.0301 
60  TO  610 
SI  *  1.0600 
60  TO  610 
SI  =  l.OaOS 
CALL  UNCLE 
ENO 


3MAU230 

3MAI1240 


3MAU300 

3MAI13I0 

3MAI1320 


3MAI1390 

3MAI1400 

3MAI1410 

3MAI1420 

3HAI1430 

3MAI1440 

3MAI1450 

3MAI1460 

3MAI1470 

3MAI1510 
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fliT  FOR  HYDKO/OUT *  HYUKO/oUT *  HYDRO/OUTI 

subroutine  hydro 

c  OUTPUT  VERSION  OF  HYDRO 

C  UtVELOPEO  BY  JIM  PALMER 

Compiled  September  i*  1967  mil 
c 

C  USES  RADIATION  PRESSURE  TENSOR 
C 

C*M«M**M***t»*MtM*M*M*MM«MMM**MM*M***** 

C  UTTER  COMMON 


HYDR0010 


C* 

C* 

C* 


C 

C* 

C*' 

C 

C 

C 

C 


1 

2 

3 

4 

s 

6 

7 

tt 

1 

2 

3 

H 

5 
b 

7 

8 

1 

2 

3 

4 

b 

b 

7 

8 

1 

2 

A 

4 


COMMON 
KMAX 
II 

IIP1 
FREO 
CVA 
EMINA 
RHOL 
RPI A 
COMMON 
DTMAX1 
GAMA 
ROlA 
S4 
S12 
S20 
ASQ 
DELR 
COMMON 
4 
V 

X3 
SMLA 
EC 

bIGB 
CHIR 
CRTPC 
COMMON 
FRLM 
2P1 
RL 
HEAD 


S  P 


LMUA ( 37 > 
BLANK 1 
IG 

IGMI 
CNTMAX 
CVB 
EMIND 
RHOR 
RPIU 

td 

DTMAX2 
WCRIT 
ROIAM1 
Sb 
S13 
EO 

152).  RD 
37) » 


lb2)  » 
1S2>» 


P 

P2 

E 

G 


lb2) •  X4 
1S2) •  SMlB 
152).  ER 
152).  CV 


NR 

ULANK2 
NRAU 
I ALPHA 
AR 

SLUG 

CA 

EPIO 

KPOIA 

TE 

DTMAX3 
SIGMA J 

1(0 1 L) 

Sb 

S14 

FO 

(152 
(152 
(152 
(152 
(152 
(152 
(152 
(152 
(152 


152).  CApAC  (152 
152).  GOFK  (152 
TELM  (  37 
37).'WLM  (  37 

37).  ZP2  t  37 
37) .  RHOK  ( 104 
12).  MAXL 


nsmlr 

ULANK3 

ULANK4 

oLANKb 

asmlr 

ALPHA 

CB 

EPSI 

RPDIB 

UTH2 

UTR 

AC 

K0IBP1 

S7 

S15 

TAU 

VD 

PI 

Sv 

El 

D 

X5 

SMLC 
SMLO 
BC 


1A  . 

IB 

9 

1CA  . 

I  API  . 

IBP1 

9 

ICAP1  . 

1AM1  . 

IBMl 

9 

ICAM1  . 

TH  » 

TMAX 

9 

HLANK6. 

PUSHA  . 

PUSHB 

9 

HOI LA  . 

HVA  . 

MVB 

9 

HCA  . 

GA  . 

GB 

9 

GL  . 

R1A  . 

RIB 

9 

RDI A  . 

TPRlNT . 

TA 

9 

tb  . 

DTM2P  . 

UTH1 

9 

DTRMIN. 

SWITCH. 

CO 

9 

CMIN  . 

AC03T4. 

CNVRT 

9 

SUMRA  . 

GMS  . 

SI 

9 

52  . 

58  . 

S9 

9 

S10  . 

S16  . 

S17 

9 

518  . 

ZERO  . 

R  (152).  DELT 

(152).  ROD 
(152).  PB 
(152).  RHO 
(152).  EK 
(152).  C 
(152).  X6 
(152).  SMLO 
(152).  SMLH 
(152).  DR 


CAPAR  (152).  CRTC 
FEW  US2).  CAR 
EXLM  (37).  ELM 
QLM  (37).  AMASNO( 
SOLID  (  37).  ECHCK  ( 
RDK 
MAXLM 


37) 
37) 

(104).  THETAK ( 104) 


HYDR0050 

**********.*******HYDR0060 
•HYDR0070 
*«HYDf<OO0O 
*«HYDR0^90 
••HYDR3100 
ICB  .HYUR0110 
ICBP1  .HTPR0120 
ICBM1  .HYDR0130 
DELPRT, HYDRO 140 
BOILB  .HYDR0150 
HCB  . HYDR0160 
GR  ,HYUR017o 
RDIB  .HYDR0180 
TC  HYDR0190 
DTMAX  .HYDR0200 
DELTA  .HYDR0210 
SUMRB  . HYDR0220 
S3  .HYDR0230 
Sll  .HYDR0240 
S19  .HYDR0250 

L52).  DELTAR(152).HYDR0260 
(152).  SMLR  (152) .HYDR0270 
( 152) .  PB1  (152)  HYDR0280 
(152).  THETA  ( 152 ) » HYDR0290 
(152).  A  (152) .HYDR0300 
(152).  X2  (152) .HYDR0310 
(152).  X7  (152) .HYOR0320 
(152).  SMLE  (152) .HYDR0330 
(152).  B1GA  (152).HYDR0340 
(152).  CHIC  (152) .HYDROSSO 
1152).  CRTR  (152).HYDR0^b0 
(152).  OKLm  (  37)  HYDRO370 
(  37).  FCLM  (  37),HYDR0380 
CHRNO  (  37) .HYDR0390 
RK  { 104) .HYDR0400 
TEMP  (  16) .HYDR0410 
HYDR0420 
HYDR0430 
♦•HYDR0440 
************ *HYDR0450 
MYOR0460 
HYDR0470 
HYOR0480 
HYOR0490 


IL  =  1A 
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I 


* 


XH  -  IB 

CALL.  UVCHK<KUMYi 

I AMI  s  I A-l 

C  S4  NEGATIVE  GIVES  JUMMT  hYjKo 
IF(54)10.20.20 
10  IBM1  =  IB-1 
00  IB  I=1A.16M1 
C ( I >  =  K( I) 

15  OELTAN(I)  =  Kd  +  ll-kd) 

CUB)  =  K(IU) 

00  TO  70 
20  PCIB)  =  0. 

GCIB)  —  U  ■ 

KHOCIu)  =  0. 

SVtlBI  =  0. 

1 ALPHA  =  ALPHA 
00  20  I-IL’ IK 

cm  s  Nin 

IF (I ALPHA, tQ. 2) GO  TO  25 
IFd.E0.1d)PdU)  s  0, 

IF  (I  .NE.  1)  00  10  22 

KDd>  S  HOU)  -  P(l)  /  6(11  •  Ad)  •  0TH1 
GO  TO  20 

22  ROd)  =  ROd)  ♦  (2«  •  -  P(ll)  /  ((H)  ♦  Gd-lJ)  •  Ad)>  • 

2  0TH1 
GO  TO  20 

25  IF  (I  .NE.  1)  GO  TO  27 
ROd)  :  0. 

GO  TO  20 
27  CONTINUE 

AA1*2.*A(I  )*(Pd«l  )-Pd  )  ♦  (b.-iLH  d*l  )_SMLK(  I“l)  )/2.)/(G(l)«0d-l)l 
1FC  AMlNKKHOd )  >KhO(  !♦  1)  )  ,LT.  l.E-10)  GO  TO  2B 
IF  (AHINICSMLRCI)  /  RmOCI).  SKLR(IU)  /  RHOddi)  .LT.  S4) 

2  GO  TO  2B 

AA23(Ad-l)*SHLK(I-l)-A(dl)«SMLK(dd  )/(0d-l)*Gd)  ) 

AA2  Z  (RHOd)  -  SkLR  d ) )  •  ISVd)  ♦  SVd-D)  /  (Cd)  ♦  CCD) 

ROCI)  1  ROd )  ♦  0TH1  •  ( AAl  ♦  AA2  ♦  AA2) 

GO  TO  20 
2G  CONTINUE 

IFd.EO.lB)P(Io)  s  0. 

•B23AC1 ) • CSNLR CI-D -SPLP d ♦!) ) / CG C I ) *6 CI-1 ) ) 

M2S(RHOd>-2.«5MLHd))*<SV(X>*SVd>l>>/(Cd)+C(I>> 

ROd  )«R0(  I  )»DTH1»  (AAl«?b2«bo3) 

CALL  OVCHKCKP) 

IFIKP.LT.  2)  XS50RH-KP) 

20  CONTINUE 

RCIA)  Z  R(IA) »HO( X A ) *0TH2 
00  50  IZIA.IBM1  . 

TEMPC1)  «  DCLTAKCI ) ♦  t rtL) (  1 . 1 ) ~RD ( I )  >  *0TH2 
RCD»>  *  Rd)tTEHP(l) 

IF (510)41. 42. 42 

41  Ad)  s  1. 

VOCI)  S  K0dd)>R0d) 

GO  TO  bO 

42  51  z  7.1 
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CALL  UNCLE 

<0  A ( I >  s  3«*R< I • *H< 1 • 

CALL.  OVCHMKP) 

IFUAbS(K(  I  *AiJ  !>(*<(  U-C(H)»/(H(l»H  ♦«<!>»  .LT.I.E-bIGO  T 

lVOM»  =  <  TEMP(  1-OtLTAR  <I)*(C(I*I 

ii • <  c ( i ♦! ) *c  <  x  n *c (i >  *c 1 1 1 1 » /oth2 

AS  V0<I?  =  (R( l  +  l I *K< 1 ♦ 1 » ♦«  « X) •<«( 1*1 »*Rl I * * '•IRU< 1*1 '“RD< I * I 
SO  D£LTAK( 1 1  =  TE*P<1» 

ACXBI  -  ALPHA*t<(  IL» » •  •  <  ALPmA-I.  I 
CALL  UVCMK<KP) 

XFTKP  .GT.  XI  GO  TO  70 

S1S7.129 

X=-l  • 

ASSORT (X) 

CALL  UNCLE 
70  CONTIrtUt 
RETURN 
ENO 
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Q  T  FOK  ECAwC/QuT *  LCALC/OUT.  ECALC/OUTl 
C'  OUTPUT  VLHSI bi  OF  ECALC 
SUtiRO jT  l‘*t  ECAlC 
C.MPILEU  OC 1 0  J£K  V.  l.9o  f  nJL 


c 

c 

c; 

c 


H£COOt.Li  JT  J  PHAOtH#  1ft  ApKIL  1967 
COMPlutU  JUNE  J.  1 96o 
COMPILED  1  MOV  1965 

I  tCLOOES  In  I  L0WATE.1J  Fi.Ua  THHU  NN  SURFACE 
(  FHLMU9I  I. 


SPUTTER  COMMON 


ECALOOlO 


ECAl002o 

ECAL0030 

EC AU004Q 
EC AL0050 
EC ALOOfen 
EC ALOO  7o 
•••ECALOOao 
•ECAL0090 
••ECAL0100 
••EC AL011O 
••ECAL0120 


COMMON 

LMUAI37) . 

NR  . 

NSMLR 

.  IA 

9 

IB 

.  ICA  , 

ICB  .ECAL0130 

1 

KMAX 

.  BLANK  1. 

bL ANK2< 

BLANK 3 

.  I  API 

9 

IBP1  .  I CAP 1  . 

1CSP1  .ECAL0140 

2 

11 

.  IG 

9 

NHAO  . 

BLANK 4 

.  1  AMI 

9 

I0M1  .  KAMI  . 

I  CBM 1  .ECAL0150 

3 

UP1 

•  IGMl  • 

1  ALPHA . 

BLANKS 

.  TH 

9 

TMAX  ,  BLANK6, 

CELPHT .ECAL0160 

4 

FHEG 

•  CnTmax. 

AH  t 

ASMLR 

.  PUSKA 

9 

PUS MB  .  BOIL A  , 

BOILO  . EC ALO 1 7o 

5 

CVA 

.  CVB 

9 

SLUG  . 

ALPHA 

.  HVA 

9 

HVH 

.  MCA  , 

HCB  .ECAL0180 

6 

EH1NA  >  EMI JU  . 

CA  . 

Cb 

.  GA 

9 

GD 

.  GL  . 

GH  .  EC  ALO  190 

7 

RHUL 

.  HHOH  • 

EPIO  . 

EPSI 

.  RIA 

9 

RIB 

.  HO I  A  , 

ROlB  »EC AL0200 

tt 

RPIA 

•  HPItt  . 

KPDIA  . 

HPDIU 

.  TPRInT. 

TA 

.  TB  . 

TC  ECAL0210 

COMMON 

TO 

9 

TE  . 

UTh2 

.  0TH2P 

9 

DTHl 

.  DTRMIN, 

DTMAX  .ECAL0220 

1 

0TMAX1.  UTVAX2 • 

0TMAX3. 

uth 

.  SV ITCH. 

CO 

•  Cm In  . 

DELTA  .ECAL0230 

2 

GAMA 

»  WCHIT  . 

SIGMAQ. 

AC 

.  AC03T4. 

CNVHT  ,  SUPRA  , 

SUMRB  .ECAL0240 

3 

RU1A 

•  ROlAMl, 

HOI  U  . 

K0IUP1 

.  GMS 

9 

SI 

.  S2 

S3  .ECAL0250 

4 

S4 

.  S5 

. 

S6  . 

S7 

.  sa 

9 

S9 

.  S10 

Sll  .ECAL0260 

5 

S12 

•  513 

. 

S14  . 

515 

.  S16 

9 

S17 

.  S18  . 

S19  . EC AL0270 

6 

S2U 

>  EO 

. 

FO  . 

TAU 

.  ZERO 

9 

R 

(152).  OELTAR(152).ECAL02bo 

7 

ASo 

( 152) » 

HU 

(152)  . 

VU 

(152)  • 

RUO 

(152).  SMLR 

(152) .ECAL0290 

a 

DELR 

(  371. 

P 

(1521  . 

PI 

(152)' 

PB 

(152).  PB1 

(152)  ECAL0300 

COMMON 

P2 

(152). 

sv 

(152). 

RHO 

(152).  THETA 

(152) .ECAL0310 

1 

4 

(152) . 

E 

(152)  . 

El 

(152). 

EK 

(152).  A 

(152) .ECAL0320 

2 

V 

(152) • 

G 

(152). 

0 

(152)' 

C 

(152).  X2 

(152) .ECAL0330 

3 

X3 

(1521  • 

A4 

(152). 

X5 

(152). 

X6 

(152).  X7 

(152) .ECAL0340 

4 

SMLm 

(152). 

SMLO 

(152) . 

SMLC 

(152) . 

SMLO 

(152).  SMLE 

( 152 ) . ECAL0350 

5 

EC 

(152). 

EH 

(152). 

SMLO 

(152). 

SMLH 

(152).  01GA 

(152) .ECAL0360 

6 

B1GB 

(152). 

CV 

(152) . 

BC 

(152). 

BK 

(152).  CHIC 

(152) .ECAL0370 

7 

CMIH 

(152). 

CAPAC  (152). 

CAPAR 

(15 2) . 

CRTC 

(152).  CRTR 

(152) .ECAL0380 

a 

CRTPC 

(152) . 

GOFH 

(152) . 

FEW 

(152). 

car 

(152).  OKLM 

(  37)  ECAL0390 

COMMON 

TELM 

(  37). 

EKLM 

(  37). 

elm 

(  37).  FCLM 

(  37) .ECAL0400 

1 

frlm 

(  37). 

WLM 

(  37). 

QLM 

(  37). 

AMASNOl  37).  CHRnO 

(  37),ECAL041o 

2 

ZP1 

(  37). 

ZP2 

(  37). 

SOLID 

(  37). 

ECHCK 

(  37).  RK 

(104) .ECAL0420 

3 

KL 

(  37). 

RHOK 

(104)  . 

RDK 

(104) . 

thetak(104),  temp 

(  16I.ECAL0430 

4 

HEAU 

(  12). 

MAXL 

. 

MAXLM 

ECAL0440 

EQUIVALENCE  (LMUAJ24).  IBB) 


ECAL0450 

••ECAL0460 

.♦•ECAL0470 

ECAL0460 
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c 

c 


dimension  E*L'in 

tUUlVhLtHCE  (FCLM.  t^LM) 


if  ipusma)  l#  5*  a 

1  1C  :  lb 

FKL*Mlb)  =  FhL-«Ilo)  ♦  !A) 

IF  (EmINA  -  til  UuHlII  2.  2'  10 

2  ir  «KU  -  K)  i«  J»  10 
J  ICb“l  =  ICb 

ico  =  icopi 

ICbPl  =  icu  ♦  i 
CALL  LOS  (1CUM1) 

00  To  10 
S  IC  =  IA 

FKLM(18)  S  FFLMllal  ♦  UTk.X2(IU) 

IF  ( IF  I A  (  POSH A )  .LO.  0>  &0  TO  10 

IF  (SO)  10 *6*  1U 

b  IF  (EHlflA  .GT.  tKKAII  uO  TO  10 
IF  ( It A  ,E«.  1>  GO  TO  10 
1CAP1  =  1C A 
1C  A  =  KAMI 
ICAMi  :  KA  -  1 
CALL  LOS  (1CA) 

10  CONTIHUL 

00  lbO  J  =  1*  MAAL 
ELMl J)  Z  0. 

IL  s  LMOA(J) 

NVAP  S  0 

IF  (IL  .GE.  I*  •  A(«0<  IL  .LE.  IB)  NVAP 

IF  (J  .EO.  MAXL)  GO  TO  IIS 

IK  z  LM0MJ*1)  "  1 

00  110  I  =  IL>  IK 

tLM(J)  Z  ELM(J)  ♦  Gl  I )  *t ( 1 ) 

IF  ( IFIX (S2 )  .t«.  0)  GO  TO  105 
TEMPI D  =  OELT  AH ( 1 ) 

IF  (S10)  10** »  10 J .  102 

102  TEMP ( 1 )  z  TEMPtl)  •  *■)«  •  Pit)  *  (Mil) 
GO  TO  10* 

103  TtMP(l)  z  TEMP (1)*(2.»H(I)  ♦  TEMPI  D) 

104  ERLMJJ’  s  ERLM(O)  ♦  KHO(l)  •  TEMPI!) 

IF  IIT’XIS?)  .HE.  -»)  GO  TO  105 
ELM(J)  z  ELM  I J )  ♦  KHO II)  •  TEMP  1 1 ) 

105  IF  I  IF  IX (SO)  .EO.  0)  GO  TO  110 
QLMIJ)  z  uLM l J)  ♦  SMLQI 1 ) *0TK 

110  CONTINUE 
115  IM  =  IL 

1MM1  :  IH  *  1 

IF  I NVAP  «NE.  1)  GO  TO  170 
FRLM(J)  z  FRLMIU)  ♦  0TR*X2UM) 

IF  I IM  .EQ.  1)  GO  TO  180 


♦  TEMPI  1 ) )  ♦  TEMPtl)**2) 


IF  I  IFIX(l)OlLA)  .EO.  0  .OR.  IM  . NE«  IC)  GO  TO  160 
GX  z  SOLID « 24)  *GI  ItlB) 

152  IF  IPUSMA)  160 *  loO*  155 


ECAL0490 
EC AL0500 
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ltoI*«7uJ|S--AliAi  *  IA_1 ' *01 ***  *  P,1*'*0X>»»D«IA>»DTR/«GX  ♦ 

60  TO  160 

160  *i-M(  J)  S  •  LM  (  J )  ♦  (HI  1  ’>?ll  *0*  ♦  P(  IM)  *G(  IVM1  n  *R0(  lH)  *OTR/(GX  ♦ 

1  u  (  IM1 ) ) *A ( IK ) 

60  TO  160 

170  IF  (SO)  160*  17S*  160 

176  IF  UK  .Nt.  1 A  .AfiU.  1*4  .l,t.  IU)  FCLM(J)  S  FCLM(J)  ♦  DTF*(X7(IM) 
1  U£LTA*(»(  1M)  *XS(  I'll  -  M iMril)»Xb( IF))) 

160  CuNTI  ,,Ut 

IF  (IFIX(SUHnA)  .£0.0)  0}  TO  200 
DO  160  I  S  U.  XUH 1 

160  HOO(I)  S  ROU(I)  ♦  tK ( I ) * ( SV ( I ) *F( J )  4  Cell  ♦  (RD( I >  *R0( I )  ♦ 

1  H0(  1+1)*R&(  1*1)  )/<*,)*OTil 
200  FHLMI 16)  S  FrlL*4(  16)  ♦  0TH*X^(||R) 

)M152)  S  iNAXKfMlSc).  SJLI0I26)  ) 

RETURN 

two 


ECALIHo 

ECAL1120 
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W.T  FOR  EOS/vUT.  ECS/UUT*  cOS/JUU 
SUBRGulI.it  EOS(JJ) 

C  output  VtKSlON  Of  tGS  —  CHAM&ES  TO  USE  THt  RADIATION  PRESSURE 
C  AwlUt-A  tEU  IN  I ME  SCAlTtHlHG  T m  AN»PCf>  I  CODE 
„MPlLEU  StPUPbER  1*  19b7  » JL 

COMPILED  Ftb.  lS*iyc7  H.  SC  ML  AUG 

InCLULLS  SPECIAL  SEL 1 lOt i  fOn  X-HAY  SOURCE  ROUTINE 
(HAT  MANUELS  UtPOSI  t  10.1  I.<  fULTI  ELEMENT  MAT!  RIALS 
COMPILED  ON  MAT  31 , 196b  AUOINo  TEST  ON  NONtO  OPTION  BEFORE 
TAKING  PATH  :-i 

COMPILEU  MAT  Id,  1*66  HT  G.  A.  LANE 

COMPILED  “AT  1J«  lVbS.  i  St  TAKES  ADVANTAGE  OF  NEW  PATH  (-3.) 
EIONX. 

COMPILED  ON  MARCH  31  #  19b6  ADDING  LOMMON  FOR  NflAR  tGEJ 


EOS  0090 
EOS  00«*0 


S  P 

U  T  T 

EH  CO 

M  M  0 

N 

•  • 

*• 

COMMOh 

LPUA ( 3 / • » 

I.K 

4  uSHLH  4 

1A 

4  IB 

4  IC  A 

•  • 

ICB  4 

1 

KMA  A 

>  BLANK 1 > 

bLA  M2 

4  6LAI.K3  > 

I  API 

4  IbPl 

4  IC API 

ICBP1  4 

a 

II 

4  IG 

9 

NRAD 

4  t»L ANK4  4 

1  AMI 

4  IBMl 

4  ICAP1 

ICBM1  4 

9 

IIP1 

9  U»Ml  9 

I  ALPHA 

4  ULANK5 4 

TM 

,  TMAX 

4  BLANK 6 

DELPKT  4 

H 

frlo 

9  CUT  MAX# 

AH 

4  mSMLK  4 

PUSHA 

4  PUSHU  ,  HOILA 

BOlLU  4 

s 

CVA 

4  CVb 

9 

SLUG 

4  ALPHA  4 

MV  A 

4  HVB 

4  HC  A 

MCB  4 

b 

EMINA 

4  EM  .'10  4 

CA 

4  Cb  4 

GA 

4  uB 

4  GL 

GR  4 

7 

KMOL 

4  KhOR  4 

EPIO 

4  lPSI  4 

R1A 

4  RIB 

4  HOI  A 

RDIB  4 

0 

RPIA 

4  RPIB  4 

hpuia 

4  kPDIB  4 

TPR1NT 

4  TA 

4  TD 

TC 

COMMON 

TU 

9 

TE 

4  uTH2  4 

UTH2P 

4  UThI 

4  DTRMlN 

OTMAX  4 

1 

DTmAXI »  UTMAX2, 

GTMAX3 

4  DTP  4 

SWITCH 

4  CO 

4  CMIN 

DELTA  4 

2 

GAMA 

4  MCRIt  4 

SIGVAj 

4  AC  4 

AC03T4 

4  CNVRT  4  SUPRA 

SUMRU  4 

3 

ROI A 

4  HOl AMI  4 

KOIb 

4  R0IBP14 

GMS 

4  SI 

4  S2 

S3  4 

4 

S4 

4  s5 

4 

Sb 

4  S7  4 

SB 

4  S9 

4  S10 

Sll  4 

S 

S12 

4  S13 

4 

S14 

4  S15  4 

S16 

4  S17 

4  S18 

S19  , 

b 

S2u 

4  EO 

4 

FO 

4  TAU  4 

ZERO 

4  H 

(152)4 

DELTAR ( 152 ) 4 

7 

ASO 

(152)  4 

HU 

(152 

I  4  VO 

(152)  4 

RDO 

(152)4 

SPLIT 

(152) 4 

0 

UELR 

(  37)4 

P 

(152 

)  4  PI 

(152) 4 

PB 

(152)4 

PB1 

(152) 

COMMON 

P2 

( 152 

)  4  sv 

(152) 4 

RHO 

(152)4 

THETA 

(152)4 

1 

4 

(152)  4 

E 

(152 

)  4  El 

(152) 4 

EK 

(152>  4 

A 

(152)4 

2 

V 

(152)  4 

G 

(152 

)  4  0 

(152)4 

C 

(152) 4 

X2 

(152) 4 

3 

X3 

(152) 4 

X4 

(152 

)  4  X5 

(152)  * 

X6 

(152)  4 

X7 

(152) 4 

4 

SMLA 

(152)4 

SMIU  (152 

) 4  SMLC 

(152) 4 

SMLD 

(152)4 

SMLE 

(152) 4 

S 

EC 

(152) 4 

ER 

(152 

) 4  SMLW 

(152)4 

smlh 

(152)4 

0 1  GA 

(152) 4 

b 

B1GD 

(152) 4 

cv 

(152 

)  4  DC 

(152)4 

B« 

(152)4 

CHIC 

(152) 4 

7 

CHIK 

(152) 4 

CAPAC  (152 

>4  CAPAR 

(152)4 

CHTC 

(152)  4 

CRTR 

(152) 4 

0 

CRTPC 

(152) 4 

GOtR  (152 

)  4  FEW 

(152)  4 

cak 

(152)4 

OKLM 

(  37) 

COMMON 

TELM  (  37 

)  4  EKLM 

(  37)4 

elm 

(  37)4 

fclm 

(  37), 

1 

FRLM 

(  37)4 

mLM 

(  37 

)  4  qlm 

(  37)4 

AMASNO(  37)4 

chrnc 

(  37), 

2 

ZP1 

(  37)4 

ZP2 

(  37 

) 4  SOL 10 

(  37)4 

echck 

(  37)4 

RK 

(104), 

3 

RL 

(  37)4 

HHOK  (104 

)  4  RDK 

(104)4 

THETAK(lOR) 4 

TEMP 

(  16)4 

4 

.  HEAD 

(  12) « 

MAXL 

4  MAXLM 

n  n  r>n 
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COQ*ON/LMS/  EIWI'20) 

EQUIVALENCES  I  ON  (*  .  Ztt-'*  ) 

EGUiVMlENCf  (tIO.  .'f).Z*E-M) 

CUMMON/LMSE/MATI  ^  .  Lb*'NT.y4AFU.Il*l2*I3»l4,I5.l6.(7.IA.I9.Il0»Jl. 

i  J2#J3*J4< Ji, 

DATA  HATtKL#ILt  '  •GNAfw.  ( 1 .  (2  #  1 3. 14 . 15. 16»  I  7.  16 . 19. HO.  Ji .  J2 .  J i , 

Z  J*>J5tJ6tJ7/2»u'0..l7»u/ 

EQUIVALENCE  (L'MAftKL) 

EQUIVALENCE  (S  J*t-U«T  ATil) 

C0M**0»i  'LHSC/  Mi  1» 

UIMCNS.'ON  Zibl » -PAiiTC  *  i 

EQU l VALENCE (M 1 l > •NOLMHl J.  (M(2) «2 (2) I » IM ( 3 ) .PART ( 3 ) ) 

COMSQN/LMSO/  TLMMQOI 

EQUIVALENCE ( IL^S  (  15)  >OZ('  IaU  ) 

EQUIVALENCE  (  TL  45  ( lfc> ) .UZLfHl ) 

c 

COMMON/CNTKL/i C  YCL  ’  *  UMUL  T 
COMMON/GE/NUAR 
HEAL  NUAK 
NbAR=  1 , 

IFiSOLIUiiei.tO.S.YCL  )  ZlOsO 

I  =  Jvl 

IX  *  NK  -  1 
NX  s  1 

IF  (PUSHA )  303*2.302 

302  IF  (1  -  1 AMI )  (  *  1 .2 

303  IX  =  NK 
NX  s  -1 

IF  (I  «  10)  2ii*l 

1  EiI)=CVA*[THtTA(I)-.025) 

CViDsCVA 
POKDSO.O 
PldUO.O 
GO  TO  bOO 

2  CONTINUE 
DO  100  d=l#  MAXLM 
IF  (I-LMOAU*!))  5  »6  *  6 

5  SOL  IDI20 ) si 
SOLID (21) si 
SOLID (22 ) sj 
C 

IF  (OKLM(J)  .Eu.  0.  )  GO  TO  4 
C  MATEH1AL  NUMUEH  OF  ZERO  LEAUS  TO  AN  ERROR  EXIT 
IF  i INT ( OKL’O  J) )  .EO.O)  uO  TO  1 
C  MATERIAL  NUMOE>4  LESS  THAU  ZERO  AND  GREATER  THAN  -1  OR  GREATER 
C  THAN  ZERO  AND  LESS  THAN  ONE  WILL  BYPASS  ALL  EQUATIONS  OF  STATE. 

IF  (OKLM(J))  3.4.57 

3  L=  . 5-OKLMI J) 

ERORs  -2. 

GO  TO  S8 

4  CONTINUE 


EOS  1070 


EOS  1120 
EOS  1130 
EOS  1140 
EOS  1150 

EOS  1170 
EOS  1160 
EOS  1190 
EOS  1200 
EOS  1210 
EOS  1220 
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C  HaTEKIAL  NUHlit*  OF  2£RC  wEAuS  TO  AN  ERROR  EXIT 
SI  -  4.0U04 
"ALE  UNCLE 

OKLMId)  NOT  PKOFlRLY  E  iTtrtEj  III  INPUT 

67  LS  ,b*uKL  Md) 

EROR=  0. 

If  <  ( I  —  I X  1  •!!>  .01.0  .  A  iD.  2P1I26) .NE.O.  >  tROH  r  -3.0 

68  CONTINUE 

If  IL.LE.20d  OR.L.GE.301.AfiC.L.Lt.400)  GO  TO  7 
If  IL  .tu.  .  Oe  • anu «  S’LAII)  .GT.  RHOR)  GO  TO  10 
TO  AVOIU  *E IGUX * •  5c.T  RICK  .to.  1.E36. 

GO  TO  6 


10 


continue 

THIS  PA I H  IF  OKLHIdl  .EL.  208.  FORCES 
TEMPERATURE  OF  2Ul.t  AT  STAR  I  Of  CYCLE 
L  =  102 
GO  TO  7 


•EIONX'  IF  ANO  ONLY  IF 
•GT.  RHOP. 


23 


CONTINUE 

THIS  path  IF  OKLHIdl  .EO.  lU2.  FORCES 
TEMPERATURE  OF  2UI.E  AT  START  OF  CYCLE 
L  =  208 
GO  TO  8 


'ES8'  IF  AND  ONLY  IF 
.LL.  RHOR. 


7  CONTINUE 

IF  IL  .EO.  102  .Ai.U.  S'^LA ( 1 1  . LE.  RHOR)  GO  TO  23 
TO  AVOID  'Ebb*  StT  RhOK  .EO.  -I.E38. 

IFIL.EQ.  101 • OR ,L • cG • 102 .OR .L .EQ. 6. OR .L • EQ. 306)  EIOIM  1** )  =R  I A 
IFIEROR.EQ. 1-3.0) I  2bAR  =  FE»(I) 

IF  (OKEHId)  .GT.  100.)  GO  TO  60 
CALL  ElONMSITHETAII) .SVII) .L»EROR) 

GO  TO  61 

60  CALL  EIONX  I  THE TA I  I ) » SV 1 1 1 *L*EROR ) 
bl  CONTINUE 

IF  IL.GE.20l  .AND.  L  .LE.  300  )  GO  TO  9 


NBAR= 

EIO.it  17) 

IF  (Sill 

54.52*51 

52 

IF  ILROR) 

53*54.55 

55 

SI  1— 

GO  TO  f. 

EKOH  ♦  100.  »  FLOAT! I) 

51 

;?  (ERdRJ 

53*54.54 

53 

Sll= 

EHOR-FLOAT(I)*100. 

54  CONTINUE 

IF  (EI0NI14)  .EO.  0.  )  GO  TO  901 
Sl=  EIOrt(l4) 

CALL  UNCLE 

El ON ( 14 )  IS  SET  EQUAL  TO  2ERO  BY  ANY  VALID  EXIT 
901  CONTINUE 
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Pld)  =  tIOfi  ( 7 1 

c  <  i  >  =  eioTHot 

If  <  d-IX)  »>.A.GT  .0  •  AUli.  IPUZb)  .lit. O.t  GO  TO  203 
CVd)  =  tI0M9> 

/S6d>  =  LlU.dl) 

fe»(i>  =  tiou(j» 
puidi  r  eiomio> 

IF  (Nib. £0.0. I  GO  To  199 
IF  (Svd)  .Oe.SoUuM7l)  „0  TO  199 
Pld)  =  Pld)  ♦  1.E12«(S<jLIj(17)/SV(1>-1.)«»2 
AS«d>  =  SOHT ( AbO ( 1 1  • *2+2.El2*SOLIUI  1  7 )  •  (SOLID 1 171/ jVI  I )-[. ) ) 
GO  TO  199 
«  CONTINUE 

c 

9  CONTINUE 

t>  L-200 

60  TO  (11. 12.  13.l4.16.  16. 17.  la.  19,20.21.22)  .L 

11  CALL  LSI 
60  TO  20u 

12  CALL  ES2 
60  TO  200 

13  CALL  £63 
60  TO  200 

16  CALL  CS4 
60  TO  200 
lb  CALL  LSb 
60  TO  200 

16  CALL  ES6 
60  TO  200 

17  CALL  £67 
60  TO  200 

16  CALL  cS8 
60  TO  200 

19  CALL  £69 
60  TO  200 

20  CALL  £S10 
60  TO  200 

21  CALL  ES11 
60  TO  200 

22  CALL  £$12 
60  TO  200 

6  CONTINUE 
100  CONTINUE 

C  ASQ  IS  SPEED  OF  SoUNU 

200  AS6U)  =  SUNT ( ,26*GAMA«Pl (1 ) *SV (1 ) 1 

199  IF  <!FIX(S2>  .E0.  3)  60  TO  604 

60  TO  ISO 

404  Pld)  s  RHO(I>  •  0.3333333  ♦  PI  C 1 ) 

60  TO  400 

ISO  !F(RPIA)400'201«40U 

201  TEMP ( 1 ) STHETA ( I ) **4 
Pld)*Pl(IlA.6*(  SMLN  ( I  •♦SMLk(  1*1 ) ) 

POl < I ) =137. 0*TEMP(1 ) *P31 < I ) 

Ed  )=e  d  >♦137.0*  tempi  d  *s<t(  i  ) 

CW d)=CV(U*S4d.0*TtMPd) /theta (I)  *50(1) 


EOS  1240 
EOS  1260 
EOS  1260 
EOS  127o 
EOS  1260 
EOS  129o 
EOS  1300 
EOS  I3lo 
EOS  1320 
EOS  1330 
EOS  1340 
EOS  1360 
EOS  1360 
EOS  1370 
EOS  1360 
EOS  1390 
EOS  1400 
EOS  1410 
EOS  1420 
EOS  1430 
EOS  1440 
EOS  1450 
EOS  1460 
EOS  1470 
EOS  1480 
EOS  1490 
EOS  1500 


EOS  1520 

EOS  1540 
EOS  1550 
EOS  1560 


400  IF  (S4.NE.0.)  oO  TO  401 

IF  (ECHCMJ+17)  .cj.O.  )  £ChCK(J+17)  =  HVA  ♦  HCA  -  1.5  *  AMaSnO(J) 
l  •(HCa/CVA».025)*(1./NUAR  ♦  FEW(D) 

401  Ed)  =  E<i)  ♦  EChCK(Jd7) 

500  RETURN 

EN0  EOS  1580 
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8,  FOH  HAO/oL *  HAU/UL*  RAU/OLl 
SUBROUTINE  RAJ 

C.MPILEJ  OClOuEM  9*  I9t>7  »1L 

CO^PIOK  SCAMEHING  «ITm  UP1ION  FOH  THOMSON  SCATTERING 

UNIFitU  KADI  A f 1  ON  CuO£  —  PtANt  OR  SPhERICAL  TRANSPORT 


DIFFUSION  IN  plane*  CTLI  ijMCAL#  OM  SPHERICAL  GEOmEIRY 
av£AT.  -IaTOkL  Of  TMAIiSPOKT  AnO  DIFFUSION  IN  CTL.  GEOMETRY  PROHIBITED. 


9m«i 

• 

•  •  • 

*  P 

OTTER  CO 

M.  M  0 

H 

••PRAO 

bO 

70 

•  PRAO 

60 

COMMON 

LMUAC37) , 

NR  *  NS«LR 

1  A 

.  lb 

.  1C  A  . 

ICB 

.PRAO 

90 

1 

KMA  A 

.  UlANM. 

ULA-W2.  OLANK3 

IAP1 

.  IBP1 

.  I Cat  I  , 

ICBPI 

.PRAO 

100 

2 

II 

.  1G 

0 

NRAD  .  dLAMK4 

1  AMI 

.  IbMl 

.  ICAMI  . 

ICdMl 

,PRAD 

DO 

3 

I1P1 

t  luMt  » 

1  ALPHA.  ULANK5 

III 

.  TMAX 

.  BLANK6. 

OELPHT 

.PRAO 

120 

4 

FRtO 

,  CnTHAA, 

AN  .  ASHLR 

PUSHA 

.  PUSHd  .  00 I LA  , 

BO  I  LB 

.PRAO 

130 

5 

CVA 

.  CVd 

0 

SLUG  .  ALPHA 

HVA 

.  rlVH 

.  MCA  . 

HCO 

,PRAO 

140 

b 

EhINA 

.  EM  mu  « 

CA  .  CU 

GA 

.  GB 

.  GL 

0 

GR 

.PRAO 

150 

7 

RHuL 

.  RhOR  . 

EPIO  .  tPSl 

RIA 

.  RIB 

.  ROI A  . 

ROIB 

.PRAO 

1  bO 

8 

RPIA 

.  KPld  * 

rpoca  .  RPOld 

TPRlNT 

.  TA 

.  TB 

9 

TC 

PRAO 

170 

COMMON 

TO 

0 

TE  .  OTH2 

0TM2P 

.  OTMl 

,  OTRMlN. 

OTMAX 

.PRAO 

160 

1 

OTMAX1 *  UTMAX2. 

DTmAX 3*  uTR 

SWITCH 

•  CO 

.  CM  I U  , 

oelta 

.  PRAO 

190 

2 

GAMA 

.  rtCRir  . 

S1GVAJ.  AC 

AC03T4 

.  CNVRT  .  SUMRA  , 

Sumrb 

,PHAO 

200 

3 

ROI A 

.  ROI AMI . 

KOltl  •  R01BP1 

GMS 

•  SI 

.  S2 

0 

S3 

,PRAO 

210 

4 

S4 

.  Sb 

0 

Sb  .  57 

se 

.  S9 

.  S10  . 

su 

.PRAO 

220 

b 

S12 

.  SI  3 

0 

SI 4  .  515 

S16 

.  S17 

.  sie  . 

S19 

.PRAO 

230 

b 

S2u 

.  EO 

0 

FO  .  TAU 

ZERO 

.  R 

(152). 

0ELTAR1152) 

.PRAO 

240 

7 

ASO 

Clb2>. 

RO 

1152).  VU 

1152). 

HOD 

1152). 

SMLH 

1152) 

,PHAO 

250 

6 

UELK 

C  37). 

P 

1152)*  PI 

1152)* 

PB 

(1S2>. 

PB1 

(152) 

PRAO 

2b0 

common 

P2 

1152).  SV 

1152)* 

RHO 

(152). 

theta 

(152) 

.PRAO 

270 

1 

M 

1152). 

E 

1152)*  El 

1152). 

£K 

1152). 

A 

(152) 

.PRAO 

260 

2 

V 

(152). 

ti 

1152)*  D 

(152)  * 

C 

1152). 

X2 

(152) 

.  PH  AD 

290 

3 

X3 

1152) . 

X4 

1152).  X5 

U52). 

X6 

(152). 

X7 

(152) 

.PRAO 

300 

4 

SMLA 

1152). 

smlh 

1152).  SMLC 

(152). 

SMLO 

1152). 

SMLE 

(152) 

.PRAO 

310 

b 

EC 

1152). 

ER 

(152)*  SMLO 

(152).  SMLH 

(152). 

RIGA 

(152) 

.PRAO 

320 

6 

BIGU 

1152). 

CV 

1152).  DC 

(152). 

BR 

(152). 

CHIC 

'152) 

.PRAO 

330 

7 

CHIR 

1152). 

CAPAC  1152).  CAPAR 

(152)  . 

CRTC 

(152). 

CRTR 

(152) 

.PRAO 

340 

8 

CRTPC 

1152). 

GOFR 

1152).  FE* 

(152)* 

CAR 

(152). 

OKLM 

1  37) 

PRAO 

350 

COMMON 

TELM 

1  37).  EKLM 

(  37). 

ELM 

(  37). 

FCLM 

1  37) 

,PRAO 

3b0 

1 

FRLM 

C  37). 

*  LM 

1  37).  QLM 

(  37). 

AMASNOl  37). 

CHRNO  1  3T) 

.PHAO 

370 

2 

2PI 

C  37). 

ZP2 

1  37).  SOL 10 

(  37). 

ECHCK 

1  37). 

RK 

1104) 

.PRAO 

360 

3 

RL 

C  37). 

HHOK 

1104).  ROK 

(104). 

TMtTAM  104)  , 

TEMP 

1  lb) 

.  PRAO 

390 

4 

HEAD 

C  12). 

MAXL 

.  MAXLM 

PRAO 

400 

••PRAO 

410 

* 

•  ••* 

***** 

•  PRAO 

420 

COMMON  /LINOLT/ 

HNU 

.SGML. 1HNU.NHNU.HNUP.NT* IM. IN.DHNU. 

THICK 

.NY 

PRAO 

460 

COMMON  /CNTRL/ 

SCYCLE.  JMULT 

PRAO 

470 

COMMON  /OAVIS/  X(4000>»  1C*.  ICY 

COMMON  /PALMER/  FIU1152).  FIK152).  F12U52).  FI3U52).  F001152). 

2FQ1U5  2)*  F021 152)  *  FQ3U52).  JORUM 
COMMON  /JIM/  NN*  FMU*  Rl*  R2*  HO*  EST.  II*  12*  GMP*  Al*  A3*  FMUS* 

2  FS*  EOF  *  LRI •  IZN*  TGI*  TG2*  F2 

PRAO  500 

DIMENSION  CSOO  (1)*  PR  CD*  PM  CD*  H  CD*  M2  CD* 

1  H3  CD*  H4  CD.  FMS  CD.  01  Cl).  TG  Cl).  Q3  CD. 
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w37 

(I)* 

u3a 

(li 

•  SLMA2  (11.  SUmx3  (1) 

*  SU**X4 

(I).  XfJ 

(11  .p 

550 

3 

Y 

(11* 

12 

(1 1 

*  LA  (11*  *■  L 

(D 

.  TR 

(1).  FSM 

( 1 1  *  F» 

4 

FSP 

(1) 

P 

P 

57o 

EQUIVALENCE 

(  ACJ3Th* TRObG1 • 

(BC 

»  SUMX4  )  . 

( 0I6A 

*  Y 

).P 

580 

1 

(BIUO 

.  H 

)  • 

(E  i  *  m3  1  * 

(CAR 

.037 

)  * 

(CHIC 

*SU'AX3)  *P 

59o 

2 

(ChIR 

» G3d 

) . 

(CRTH  *SUMX2>* 

( X  7 

.PR 

)  * 

(GOFR 

*03 

)  *P 

600 

3 

(  Pfl 

•  01 

I  • 

(512  .EOITMFI. 

(EC 

*M2 

)  * 

(  W 

*OX 

).P 

4 

(SMLA 

•  FMS 

). 

(  S  •‘Lit  •  FL  )• 

(SMLC 

.  TR 

)  * 

(SMLH 

.  H4 

).P 

5 

(ER 

*  F  M 

). 

(V  • TO  I. 

(SMLO 

*FSM 

)  * 

(CRTC 

•CSOO  ).p 

b 

(AS 

•  rz 

)  • 

(X4  <X8  )• 

(SMLE 

.FSP 

) 

P 

660 

•  P 

67o 

INS  X  l-KJH  THE  1 

PREVIOUS  Y  LINE 

•  P 

680 

•  P 

690 

CSOO 

SAME  AS 

CRTC 

•  P 

700 

EOITMF- 

same  as 

S12 

•  P 

710 

QI 

same  as 

PB 

•  P 

FM 

same  as 

ER 

•  P 

H 

SA)4E  AS 

BIGB 

•  P 

740 

H2 

SAME  AS 

EC 

•  P 

H3 

same  as 

BR 

•  P 

760 

H4 

SAME  AS 

SMLH 

•  P 

770 

PR 

SAME  as 

X7 

•  P 

FMS 

SAME  AS 

SMLA 

•  P 

FL 

SAME  AS 

SMLO 

•  P 

TR 

SAME  AS 

SMLC 

•  P 

FSM 

SAME  AS 

SMLO 

•  P 

FSP 

SAME  AS 

SMLE 

•  P 

Y2 

same  as 

X5 

•  P 

OX 

SAME  AS 

to 

•  P 

TG 

same  as 

V 

•  P 

03 

SAME  AS 

GOFR 

•  P 

630 

037 

SAME  AS 

CAR 

•  P 

640 

038 

SAME  AS 

CHIR 

•  P 

650 

SUMX2 

same  as 

CRTR 

•  P 

860 

SUMX3 

SAME  AS 

CHIC 

•  P 

67o 

SUMX4 

SAME  AS 

BC 

•  P 

600 

TROBG 

SAME  AS 

AC03T4 

•P 

890 

Y 

SAME  AS 

BIGA 

•  P 

910 

X6 

SAME  AS 

X4 

•  P 

•  P 

940 

. . . 

PRAO 

SOLID! 371  IS  THt  SCATTERING  COEFFICIENT  P 

SOLID (36)  IS  THE  COMPTON  SWITCH.  ZERO*  COMPTON)  NONZERO*  THOMSON. P 
F10*  FI  1  *  Fl2*  F 13*  FKEQUtNCY-DEPENOENT  SCATTERING  SOURCES*  P 

REAO  IN  FROM  ORUM,  ALTERNATELY  FROM  LOGICAL  UNITS  25  ANO  26.  P 

RECIPROCAL  ELECTRON  REST  ENcRGY  In  EV**-1  IS  1.95692E-6  P 

IOMX  =  4000  p 

T4  =  1.  p 

TAX  s  AQS(S0LIU(37) )  •  X.9bo92E-6  P 

IF  (AbS (SOLID (36) )  .GT.  l.E-20)  TAX  =0.  P 

JORUM I  :  51  *  JORUM  P 

REWIND  JORUM  P 


600 

690 
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C 

c 

c 


c 

c 

c 


Kt.IliO  JUkUMi 

IU=1A 
IMPI 2 IM» 1 

CAUL  UVCHK  (KOOoFa) 

CAUL  UVCKUN 

If  (  I  4HI-IN)  3U»3o*40 

NO  V APOri  ZONti 

30  X2(IHP1»  =  1.02d3t.l2  •  ACIMP1)  •  ( TmCTA< 1M» »»4 

tK( 1M)=-A2( iHHl > 

40  TO  1320 
40  THTAMX  =  . 02b 
00  100  1=1N*IM 

SET  OH  FOk  KAPPA  INTERPOLATION 


P 

PRAO  930 
PRAO  940 
PRA0104Q 
PRAJ1050 
PRAO 10 60 
P 

PRAOX070 
prao io ao 
PRAD1090 
PRA01100 

TH£TA(IMpl)»»4)  p 

PKADI120 
PRAO l 130 
P 
P 

PRAO 1250 
PRA01260 
PRA01270 


01(1) slntTA ( I )  •  *4 

037 ( * ) =alog ( TMt r a ( i n 
036 ( 1 ) -AUOCiSV (III 

FMS(l)  =  AbS  (SOUlti  ( 37)1  •  0.6  /  SVd) 

CSOO(l)  =  C  ( 1 )  •  *2 

IF  ( THETA ( 1 )  .OT.  THTAMX)  THTAMX  =  TmETA(I) 

100  CONTINUE  .  ....... 

IF  (THTAMX  .LT.  THtTA(IFPl))  THTAMX  r  TMETA(IMPl) 

IF  (li«Ml  .GT,  0  .ANU.  THTAMX  .LT.  Tm£TA(INMI))  TMT AMX-TMET A 1 INM1 ) 
IF  (THTAMX  .LT.  0.06  .An).  GL  .LT.  1.-30  .ANO.  IN**I  .LE.  C 

2  GO  TO  1320 
CSQO(iMPl)  =  C  ( IMPl )  »»2 
IF  (muS(S0LI0(3/1 )  -GT.  I.t-20)  I*  =  I* 

IHNUSO 

CALL  KAPPA ( IN* 1M) 

MINIMUM  HA01A713N  T I ML  STEP 

■Sd=0« 

00  1G1  1=1*MAXLM 

101  *Sd=*SL^£LM(I> 

OTRlrl.ElO 

OTK2=1.E10 

00  107  1=1N.1M 

IF  ( AMIN1 (CAP AC (I)*CAPAR(I)).GT.O.)  GO  TO  102 

Sl-13.0102 

CALL  UNCL fc 

102  IF  (At)S(SOLlU(  10) )  .LT.  I.t-20)  GO  TO  103 
TEMP(1>=CAHAK(I> 

TE«P(3)=CAHAH(I) 


00  TO  104 

103  TtMP(l)sCAPACd) 

TEMP(3)=CAHAC(1» 

104  IF  (THETA(l).LT. .001)  60  TO  107 
M(I>  s  «5» TEMP ( 1 ) /5V ( I ) *C<ELTAR ( 1 ) 


TEMP(l)=l.tlO 
TENP (21-1.L10 
•SBB=t<l)*G(I) 


PRA01260 

PRAO 1290 

PRAD1300 

P 

P 

P 

PRAD1360 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 
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IF  CAjSCEHUI)  .LT.  l.t-20  •  Oh  •  fcSrtU  .LT.  .00'  •  wSF  >  GO  TO  105  P 

C  ACCUKaCT  CRITtKlO-.  P 

T£HPCl)=SLUG»*Sbu/AbS<LP< l>  I-  P 

c  ifAbium  CKirtKioH  p 

105  TEWPlcJ  =  7ELMI25J  •  » AF  Hill  TEMPI 1> ,  (.5  ♦  1.5  *  H»I>.»2)  •  CV(I)/P 

I  (6.11 J2E12*TE iPt5>*TM£lA(I>»»Jl>)  P 

IF  I  TfcMP C 2)  .LI.  l.E-20)  GO  10  10'  P 

IF  CTcMF»2»  .01  .UTMI  )  GO  Tu  10t>  F 

OTK2=ulNl  P 

1HN2=1MN1  P 

UfHlsTLhPU)  P 

1MN1S1  P 

GO  TO  10/  P 

106  IF  ULMPI2) .GT.UIK2)  GO  TO  107  P 

OfH2=fCMP(2»  P 

iMN2rI  P 

107  CONTINUt  P 

0THMIN=0TK1  P 

tO=I*Nl  P 

IF  CQTKl.GT.TtLM<«'b>»  GO  TO  108  P 

TELMI26) SUTNl  P 

TELMI27 J  SIHN1  P 

TtLM«2b)=0THt  P 

TELM(29)=IHN2  P 

TELM  <  ju  I -SOLID  I lo) *1 .  P 

108  IF  1UTRMIU-0THI  111.112.109  P 

109  ULAfmj=TMtAMlliHUTHMlN»GR*OTH2>  .  P 

GO  TO  112  P 

111  NHAD=ZP1I18)/UT««IN  ♦  1.  P 

UTKr/FlClaJ/FLOATlNKAU)  P 

IF  CNHAU  ,Lt.  50 1  GO  To  112  P 

S1-1J.0112  P 

CALL  UNCLE  P 

112  CALL  UVCrtKCKA)  P 

60  Tu  ( 150 . lbO ) .  KX  P 

150  SI  S  15.0150  P 

CALL  UNCLE  P 

160  IF  IGL  .GT.  0.1  1R  :  IN  P 

GO  TO  ( 128*  115.  115).  I  ALPHA  P 

P 

ANACTEK1ST 1C5  IP  NONPL*NE  GEOMETRY  —  SET  UP  X  ANO  T  OUTSIDE  FREQ  LOOPP 

P 

113  K  =  0  P 

DETERMINE  aHETMER  to  SMP  ZONES  with  r-LlNES  p  1970 

116  K1=K  P 

rm=o.o  p  1500 

X6 ( 1 )  =  0.0  P 

JK=1  P  15Jo 

. . . . . . .  1540 

*P  1550 

SETUPYLIKSS  *F  1560 

*P  1570 

. . ***P  1580 

DRAW  T  LINES - ONE  FOR  EACH  LARGE  TEMPERATURE  CHANGE  P  1600 

FORCE  Y  LINE  ON  SURFACE  OF  SOLID  IF  ANY  P  1610 
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NO  Y  GREATER  THAN  ClIR+l)  £  1M(J 

IF  (IN  .L£.  1)  Go  TO  115  £ 

jk  =  2  p 

Y (2)  =  C  C IN)  p 

X4(2)  =  CSQU(lU)  p  • 

lib  00  lid  I  =  IN.  IN  ,,,  p 

IF  (ABS(u37 ( 1  +  1 )  -  037(11)  -  0.5)  117.  117.  116  £ 

116  JK=JK*1  £  16y 

Y(JK)=C(1+1)  L  10,0 

xmok)  =  cs*)(i*n  l  1690 

Kl-K  p 

GO  TO  116  p 

117  IF  (K1  . LE .  0  «0N.  1  .EO.  IR)  GO  TO  116 

>u=ki-i  p 

na  continue  p  17 

NY=JK  P  0 

GO  TO  120  p 

119  K=KU  p 

IF  (K  .LE.  10)  GO  TO  114  r 

SI  =  13.0119  y 

t  **<■**************  *♦*****♦*♦♦ ******************* *************t*********P  Jyqg 

f:nu  complete  set  of  x  values  *p  iboo 

(INTERSECTIONS  OF  KAUII  WITH  Y  LINES)  *P  1810 

*P  1820 

*************************************************************** ******P 

P  1840 

FORMATS  -X4.  -number  of  intersections. x*s.  p 

P  looO 

120  K2=l  p 

B.35 J=2,JK  ; 

K2-K2+2  p  {US 

KK=1  p 

121  TS1  =  CSQU(I)  -  X4(d)  p 

IF  ( TS1 )  124.  124.  122  p 

122  i£ZKzTHUJSl'  P  1960 

IF  (K2-IDMX)  123.  123.  119  9 

123  1=1-1  p  I99n 

KK=KK*1  p  40 

GO  TO  121  p 

124  KKK=K2-KK  p  20Pft 

X  (KKK)=-  (KK-1 )  p  ‘ Cfl 

125  CONTINUE  „  „  po  p 

FINISH  X-BLOCK  WITH  A  NEGATIVE  NUMBER  P 

X(K2)-“1«0  *  fcw f 0 

**************************** ******************************************ppJ°J93° 

BEGIN  FREQUENCY  LOOP  .  *PRA01440 

^♦♦♦♦♦l***************************************************************™^}^ 
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C  SET  UP  MAX  FRE3  BOUNDARY 

C 

C0MPTON  SCAT  TLKING  FORBIDS  VERY  HIGH  FREQUENCIES. 

C  THETAK(103>  CHOSEN  TO  jE  COMPATIBLE  WITH  KAPfa/JP 

128  HNUP  =  THETAM103) 

IHNU-1 

DO  li'9  I=IN»IMP1 
X4 ( I )  -  0. 

FUO(I)  s  o. 

FQl(I)  =  0. 

F02U)  =  0. 

F03(i)  =  0. 

ROD l I )  s  LK(I) 

EK ( I )  =  0. 

SMLR(I)  =  0. 

129  SUMX2 ( I ) =0 • 0 

IF  (KMAX  .NE.  0)  GO  TO  310 
C 

C  MONOFKEuUENCY  CALCULATION 

C 

210  NHNU=1 

DO  220  I-1N» IM 
220  Xo  ( 1 ) -01 ( I ) 

240  DFB  =  1.0 
HNU  =  .001 
UHNU  r  THETAK11U3) 

ICX  =  IM 
ICT=IN 
GO  TO  460 
C 

C  TYPICAL  GROUP  CALCULATION  OF  SOURCES 

C 

310  CALL  KAPPA t IN* IM J 

ZZ  =  0. 

DHNUP  s  DHNU 
UHNU=HNUP-HNU 
380  ICX  =  IM 
ICY  =  IN 

IF.  (CL  .LT.  l.E-20)  GO  TO  370 
DO  360  I=IN*IM 

OFB  r  PLNKUT (HNU  /  THETA(I),  HNUP  /  THETA(I)) 

360  X6(I)sUFB*01(D 
GO  TO  460 

370  DO  480  I=1N*II< 

BETA=HNU/THETA(I) 

C 

C  AVOID  CALCULATION  OF  DFa  LESS  THAN  IE-5 

C 

IF  (BETA  .GT.  19.)  GO  To  430 
BETAP  s  HNUP  /  THETA(I) 

IF  (BETAP  .GT.  0.01)  GO  TO  440 
430  X6( I )=0.0 
GO  TO  450 
C 

C  FORM  SOURCE  X6 


PRAD1490 

PRAD15U0 

P 

P 

PRAO1520 


PRAU2070 

PRAD2000 

PRAD2090 

PKAD2100 

PKAD2120 

PRAD2140 

PKAD2180 

PRAD2190 


PRA02220 

PRAD2230 

PRAD2450 

PRAD2460 

PRAD2470 

PRAD2480 


PRAD2490 

PRAD2610 

PRAD2640 

PRAD2650 

PRA02660 

PRAD2670 

PRAD2680 

PRAD2690 

PRA02700 

PRAD2710 

PRAD2720 


PRAD2860 

PRAD2880 

PRA02890 
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440  UFb=PLNKUT  ( bE  T  A  » Bt  TAP ) 

X6 ( I ) -OF  d  *  Q 1 ( I ) 

450  continue 

CALL  UVCHK(KX) 

GO  TO  (452  »  460).  KX 
452  SI  =  13.0462 
CALL  UNCLE. 

460  IF  (INM1)  470.  490#  460 

SET  ULACKbOUT  CONJlTION  FOR  1A  GREATER  THAn  1 

470  SI  =  13.0470 
CALL  UNCLE 

480  UFb  =  PLNKUT  (MNU/THETA ( INM1 ) .HNUP/THET A ( INM1 ) ) 

Xb(lNMl)  =  UFU  *  THETA  ( IiJMl )  **4 
SET  bLACKbODY  CONuITIOII  IF  DESIRED  FOR  IMP1 
490  IF  (ABS(GL  -  0.5)  .GT.  l.E-6)  GO  TO  510 

IF  (ABS(THETA(IMPl) )  .LT.  l.E-20)  GO  TO  500 
FMS(INMl)  =  0. 

OFd  =  PLNKUT (HNU  /  THETA ( IMP1 ) #  hNUP  /  THETAl IMP1) ) 

X6 ( IMPl )  =  DFH  ♦  THETA( IMP1 ) **4 
FMS(IMPl)  =  0. 

GO  TO  510 
500  X6(IMP1)=0. 

510  IF  ( ABS(S0LID ( 37) )  .LT.  l.E-20)  GO  TO  515 

SCATTERING.  SET  RADIATION  REGION  ACTIVE  THROUGHOUT.  [.RING  in 
FROM  DRUM,  ANU  SET  UP  CO-iPTON  SCATTERING  FREQUENCY  PARAMETERS 
ICY  =  IN 
ICX  =  IM 

READ  (JORUM)  FIO,  FI1.  FI2.  FIS 
HNUX  s  AM1NKHNUP,  1.E5) 

GAMMA  =  AMIN1 (0.2,  0.97b4oE-6  *  (HNU  ♦  HNUX)) 

A1P  =  HNU**2  /  UHNU  ♦  1.95b92E-6 
IF  ( IHNU  .EG.  1)  GO  TO  512 
A3  =  HNUX**2  /  OHnUP  *  1.95692E-6 
512  A1  =  A1P  ♦  3.  *  GAMMA 
GMP  s  1,  -  2.  *  GAMMA 
515  Q31-0 . 0 


FORM  ROSSELAND  AND  PLANCK  OPTICAL  DEPTHS 


C 

C 


00  570  UIN.IM 
IF  (CAPAR(I) )  530,530,520 
520  IF  (CAPAC(I))  530.530.540 
530  Sl-13. 0530 
CALL  UNCLE 

540  TAUX  =  AMAX1 (SOLID «37) ,  0.) 

SPECIAL  COOING  TO  FORCE  KAPPAS  TO  HE  AT  LEAST  0.2 
CPC  =  AMAX1 (CAPAR ( I )  ♦  TAJX,  0.2) 

HHTAX  MUST  UK  LIMITEO  TO  2  *  GAMMA  *  KAPPA(S)  =  .08 
HHTAX  =  AMIN* (TAX  *  (HNU  ♦  HNUX).  0.08) 

GO  TO  (542,  344.  544).  I ALPHA 
542  QQ1  =  G(I) 

GO  TO  546 


PRA02910 

PRA02920 

PRAD2930 

PRA02980 


PRA03000 

PRA03010 

PRA03020 

PRAD3040 

PRA03050 

PRA03060 

PRAO3070 


PRA03100 

PRA03110 

PRAO3120 

PRA03130 

DATA 


PRAD3150 

PRAO3160 

PRAD3170 

PRA03I80 

PRAD3190 

PRA03200 

PRAD3220 
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544  JGl  =  (C(I  +  1>  -  C(l)>  /  3V(I) 

546  CPA  =  CPC  -  fiHTAX 
H J ( I )  =  CPA  *  am 

CHOOSE  ALL  rtOSSELANO  IF  SOL  XL- ( 10  J  IS  NONZERO 

IF  (ABS(S0LI0( 10) )  .LT.  l.E-20)  GO  TO  5SG 
H21I)  =  H3  U ) 

HID  :  CPA  /  SV(l) 

GO  TO  560 

550  CPd  Z  AMAX1  (CAPAC  ( 1 )  ♦  T/.UX.  0.2) 

H2U)  =  CPb  •  001 
H  ( I )  z  CPB  /  SV  ( I ) 

560  G31=G.)UH3ll) 

Q31I+l)s«31 
H(I)  s  0.5  *  H(l) 

H2U  )=0»5*H2( I ) 

H3U)=0.5*H3U> 

X2(  D-0.0 
X3U)s0.0 
X4 (I )-0 .0 
Y2(I)  =  0. 

TGU  )  =  0. 

RHO II)  =  0. 

PR(I)  s  o. 

FLU)  =  0. 

570  TK II)  =  0. 

X2UFPD-0.0 
X3UMPl)=Q.O 
X4CIMPl)=0.0 
TGUMP1)  =  0. 

KHO(IMPl)  S  0. 

PR(IMPi)  S  0. 

FL(IMPl)  =  0. 

TRUMP'  1  S  0. 

Y2UN  .XbllN) 

TG(IN)=0.0 

C 

C  FORM  Y2  AND  TG  SET  X3=-l  IF  A  DIFFUSION  CRITERION  MET  USING  HCB 
C 

600  ICXM1SICX-1 

IF  UCY.GT.  ICXM1)  GO  TO  650 
DO  640  ISICYUCXM1 
TEMP U ) =H3 U 41 ) *H3 U ) 

IF  (ANAX1 (X6( I)»X6<I*1)).lT •  1,E>30 '  GO  TO  610 
IF  (At)SUH3U)  -  H3C  !♦!) )  /  TEMPI!))  ,GT.  0.333)  GO  TO  610 
IF  ( AUS(  (X6U)~X6(I*1))  /  < X6 U ) +X6 (I ♦! ) > )  .LT.  0.333)  GO  TO  620 
610  TGUUUO.O 
GO  TO  640 

620  TGU*X>*CX6UU)-X6U)5/T£MPU> 

Y2( l4l)s(X6( 1*1) *HJ( I ) 4XoU ) *H3( 1*1) ) /TEMPI  1 ) 

C  FORCE  TRANSPORT  FOR  RAPULY  VARYING  SOURCE  OR  POSITIVE  HCB 

IF  (ASS(TGUU))  .GT.  0.1  *  Y2UU>  .OR.  HCB  .GT.  0.)  GO  TO  640 
630  X3( l4l)S“1.0 
640  CONTINUE 

C  FORCE  DIFFUSION  FOR  NEGATIVE  HCB 
650  IF  (HCB)  651*  655*  655 


PRAD3280 

PRAD3290 


PRAD3310 

PPAD3320 

PRAD3330 

PRAD3340 

PRAD3380 

PRAD3390 

PRAD3400 


PRA03420 

PRAD3430 

PRAD344Q 


PRAD3520 

PRAD3570 

PRAD3580 

PRAD3590 

PRAD3600 

PRA03610 

PRA03620 

PRAD3630 


PRA03680 

PRA03690 

PRAD3700 

PRAD3740 


PRAD3760 

PRAD3770 
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6b  IF  (GL  .GT.  U.9)  GO  TO  654 
INP1  =  IN  *  1 
X3(l)  =  -1. 

00  653  1  =  INP1,  IM 

0  =  H3(I-1>  ♦  H3(I> 

IF  (Q  .GT.  0. )  GO  TO  652 


SI  ?  13.0662 
CALL  UNCLE 

652  TG ( 1 1  =  t  Xb ( I )  -  xb(I-l))  /  0 

653  X3( I)  =  -1. 

GO  TO  655 

654  SI  =  13.0654 
CALL  UNCLE 

C  PRAD3780 

C  LAST  ZONE  MUST  dE  TRANSPORT  IF  EXTERNAL  INPUT  INTENSITIES  PROVIDE  ; 


655  IF  (GL  .GT.  0.9)  X3(IM)  =  0.0 

IF  ( ABS(GL  -  0.5)  .LT.  l.E-S)  GO  TO  690 
T2(IMP1)=X6(ICX) 

TG ( IMP1 ) =0 .0 
C 

C  EXTEND  TRANSPORT  REGION  BOUNDARIES  TO  PROVIDE  5  MEAN  FREE  PAThS 
C 

690  I=IN*1 

CALL  DVCHK(KX) 

GO  TO  (692 .  700 ) #  KX 
692  Si  =  13.0692 
CALL  UNCLE 

700  IF  (X3(I)I  710#73o*720 
710  1*1*1 

IF  (I-ICX-1)  700.730.820 
720  Sl=13.0720 
CALL  UNCLE 

730  IF  (I  .E8.  IMP1 )  GO  TO  U20 
J  s  I  -  1 

740  IF  (Q3(I!-Q3(J3-  5.)  750.750*760 
750  X3( J)  *  0.0 
J*J-1 

IF  (J-IN)  760.740.740 
760  1=1*1 

IF  (I-ICX-1)  770.770.820 
770  IF  (X3(I))  780.760.720 
780  J=I 

790  IF  (Q3(J)-Q3(  I-D-  5.)  8o0.800.710 
800  X3(J)  *  0.0 
J=J*1 

IF  (d-ICX-1)  790*810*810 
810  I  *  J 

GO  TO  710 
820  I=IN*1 
C 

C  TEST  TO  FORM  TRANSPORT  REGIONS 

C 

IF  ( X3( IN) )  890*830.720 
830  *AX=IN 

840  IF  (X3( I ) )  860*850.720 


PRAD3910 

PRA03920 

PRAD3930 

PRAD3960 

PRAD3970 


PRAD3980 

PRAD3990 

PRAD4000 

PHAD4020 


PRAD4050 

PRA04060 

PRAD4070 

PRAD4080 

PRAD4090 

PRAD4100 

PRA04110 

PRA04130 

PRAD4140 

PRAD4150 

PRAD4160 

PRAD4170 

PRA04180 

PRAD4190 

PRAD4200 

PRAD4210 

PRAD4230 

PRAD4240 
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c 

C  REMOVE  ONE  ZONE  DIFFUSION  REGION 

C 

660  1=1+1 

IF  (I-ICX-1)  840  *  950  *  950 
860  1=1+1 

IF  (I-ICX-1)  870.9S0.9SO 
870  IF  (X3CI))  680.  87S.  72J 

87S  X3C 1-1)  =  0. 

GO  TO  840 
880  I8X=I-3 

IF  (IJX.LT.IAX)  GO  TO  970 
GO  TO  960 

890  IF  (IN.GT.1)  GO  TO  910 
C  ASSUME  C(l)  s  0. 

900  X2(l>  =  0.0 
FL(1)  =  0. 

GO  TO  920 

910  X2( IN)  =  1.0283E12  *  A(I.J)  *  (Xb(IN-l)  -  X6(IN)) 
FL(IN)  =  O.S  •  CXbClN-l)  -  X6(  IN)  ) 

920  PRC  IN)  =  Y2CIN)  *  O.b6obo67 
KHO(IN)  -  Y2CIN)  ♦  Y2CIN) 

FLC IN)  =  -.6666667  ♦  TGCIN) 

TRCIN)  =  0.6  •  FLCIN) 

925  IF  (X3C I) )  930.  940.  720 


C  FORM  X2  FOR  DIFFUSION  ZONES  IN  ORDER  PRAD4410 

930  X2CI)  =  -1.37E12  *  1GCI)  «  ACI)  PRAD4420 

•  PRC  I)  S  Y2 ( I )  *  . o666b67 

RHO(I)  =  Y2CI)  +  Y2 ( I ) 

FLC I)  =  -.6666667  ♦  TG(I) 

TR(I)  =  .6  *  FLC I ) 

1=1*1  PRAD4430 

IF  Cl  -  ICX  -  1)  925.  980.  980 

'  C  PRAD4450 

C  DO  TRANSPORT  TO  IM  IN  REGION  OF  NO  SOURCE  PRAD4460 

C  PRAD4470 

'  940  IAX=I  PRAD4480 

GO  TO  850  PRAD4490 


950  IBX=Irt 

>  960  IF  CIAX  .GT.  ICX)  00  TO  965 

GO  TO  (961.  962.  963).  1ALPHA 

961  CALL  PTRANSC I AX.  IBX) 

>  GO  TO  965 

962  SI  =  13.0962 
CALL  UNCLE 

•  963  CALL  STKANSCIAX.  IBX) 


965  IF  CIBX-IM)  970.1030.1030  PRAD4S20 

970  I=IBX+2  PRAD4530 

GO  TO  930  PRAD4540 

980  IF  CI.GT.IR)  GO  TO  981 

IAX=I  PRAO4560 

GO  TO  950  PRA04570 

961  IF  (IK  .EQ.  IM)  GO  TO  990 
SI  =  13.0982 
CALL.  UNCLE 


PRAD42S0 

PRA04260 

PRAD4270 

PRA042BO 

PRA04290 

PRA04300 

PRAD4310 


PRAD4330 

PRAD4340 

PRAD4350 

PRAD4360 


PRAD4380 

PRAD4390 
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C  HIGHT-HAiiu  BOUNDARY  CONDITION  FOR  DIFFUSION  ZONES 

C  VEAT.  MA  Y  NttD  RHO *  FL*  T«  HERt. 

*990  IF  (GL)  1000 *  1010  * 1020 
000  X2dMPl)  =  0. 

GO  TO  1030 

,010  X2(IMP1)  =  1.0283E12  *  X6(lM)  *  A(IMP1) 

GO  TO  102b  .  ,  , 

.020  X2 ( IMP1 )  =  1.0283E12  *  (X6<IM)  -  Xb(lMPl))  *  A(IMPl) 
1 02b  KHO  (  ImPI  )  =  Y2UMP1)  ♦  Y2(IMP1> 

PH(IMPI)  =  0.3333333  *  Rr(OIIMPl) 

FL (  IF.P1 )  =  X2(IMP1)  /  A(IMP1)  *  4.8624E-13 
TKdP.Pl)  =  FL(IMPl)  *  0.6 


C 

C  OPTIONAL  EDIT  OF  X2  ETC. 

C 

1030  IF  (AbS(EOlTMF)  .LT.  l.E-20  .OH.  ZZ  .GT.  l.E-20)  60  TO  lo4o 

CNT1=S0LID ( lb ) +1 • 0 

IF(TU.GT.O.b.ANU.CNTl.LT.CNTMAX)GO  TO  1040 
((RITE  (fc*3>  CNT1*  TH*  HNU*  HNUP*  IK*  ICX*  ICY 


HNU  FROM  F0.2* 


WRITE  (6*4) 

00  103b  I  =  IN* IMP1 

WRITE  (6*6)  I*  C(I>.  X6(  I )  •  H2(D*  H3(I>*  TG(D*  Y2(I>*  X3(I)* 
1X2(1)*  RrtO(  I ) '  PK  ( I )  *  TK  ( I  > 

1035  CONTINUE 

3  FORMAT  (9H1CYCLE  =  F7.0*  9H  TIME  =  E13.6*  12H 
2  4H  TO  F8.2*  10X2HIKI4.  10X3HICXI4*  10X3HICYI4/) 

4  FORMAT  (3X1HI*  1UX1HK*  10X2HX6*  10X2HH2*  10X2HH3*  10X2HTG* 

2  10X2HY2.  3X2HX3.  10X2MX2.  9X3HRH0*  10X2MPR*  10X2HTK ) 

6  FORMAT  (14*  1PE1I.4*  bE 12. 5 >  0PF5.1*  1P4E12.5) 

.040  IF  ( T4  .GT.  CAPACU52)  >  GO  TO  105b 

ZZ- o. 


OEM  S  0. 

00  1053  I  =  IN*  IMP1 

FI0SV=3.*RH0(I)-PR(I> 

FI2SV=3.*PR(I)-RHO(I) 

FI1SV  =  3.  *  FLd)  -  5.  *  TR( I ) 

FI3SV  s  3.  ♦  TR( I)  -  b.  *  FL(I) 

ON  =  FIOSV  -  FIO(I) 

.00  s  FIOSV  ♦  FIU ( I ) 

IF  (ABS(QO)  .GT.  0.)  GO  TO  1051 

GO  TO  10b3 

QE  S  ABS(QN  /  QO) 

IF  (QE  .LT.  CAPAC ( 150 ) )  GO  TO  1052 
ZZ  :  1. 

IF  (OE  .LT.  OEM) .  GO  TO  1052 
I OEM  =  I 
OEM  =  QE 

FIO(I)  =  FIOSV  ♦  CAPAC ( 151)  *  QN 

FI2( I)  =  FI2SV  ♦  CAPAC ( 151 )  *  (FI2SV  -  FI2<I>> 

FIKI)  =  FI1SV  ♦  CAPAC  ( 151)  *  (FUSV  -  FI  1  ( 1 1  > 

FI3(  I )  =  FI3SV  ♦  CAPAC  ( 151 )  *  (FI3SV  -  FI3d)) 

CONTINUE 

T4  -  T4  ♦  1.  . 

IF  (T4  .GT.  9.  .OK.  ZZ  .LT.  0,1)  GO  TO  1055 
CNT 1  =  SOLID (18)  ♦  1.0 


|051 

1052 

|053 


PRA04580 

PRA04590 

PRA04600 

PRA04610 


PRA04650 

PRA04660 

°RAD4670 

PRA04690 
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WHITE  (6*8)  Cfj T1 ,  IHNU*  T4.  OEM.  lOEM 
8  FOHMAT  (29H  SCATTERING  ITERATION.  CYCLE  Fb.O.  9H  ImnU  s  12.  7H. 

2lo  TO^blb*  32H  LAK<iEST  f'ELATIVE  DIFFERENCE  IS  F5.3*  9H  IN  ZONE  13) 

lObb  00  10b7  I  r  IN.  IMPI 

FOO(I)  =  FIU(I) 

FQKI)  s  F 1 1  ( I ) 

F02(I)  s  F 12 ( I ) 

F«33(I)  =  FI3  ( I ) 

SUMX2 ( 1 ) =SUMX2 (I)+X2(I) 

EK l I )  s  KHO(I)  *  6b. b  ♦  £K  ( I ) 

SMLR(I)  s  SMLR(I)-fPR(I)*.,a.b 


PRAD481Q 


FIO(I)  =  3.  *  MHO (II  -  PH  ( I ) 

FI2(  I )  =3.*  PR(  I )  -  KHO(I) 

FI  1  ( I )  =  3.  *  FL ( I )  -  b.  *  TR ( I ) 

1057  FI3(I)  S3.*  TR  ( I )  -  b.  *  FLU) 

U  s  THICK  *  1 • U26L12 

CaPAR ( IHNU+135)  S  CAPAR ( IHNU+ 13b)  ♦  0.5  *  DTR 
2  0) 

CAPAR (IHNU+120)  =  0 

IF  (AUS (SOLID ( 37 ) )  .GT.  l.E-20)  rfRITE ( JDRUMI ) 


(CAPARIIHnU+120) 


FIO.  FI 1 »  FI2.  FI3 


ADVANCE.  FREO.  STOKE  EMERGENT  FLUX.  TEST  FOR  COMPLETION  OF  GROUPS 


PRAD4830 

PRAD4840 

PHAD4850 

PRA04860 


HNUPSHNU  'p':™ 

UHNUP  =  OHNU  PRAD4860 

IHNU  s  IHNU  ♦  1  PRAD4880 

•  1  • 

IF  (IHNU-NHNU)  1060. 1060. lOejO  PRan4flQn 

t060  CALL  JVCHK  (KOOOFX)  PRAD49nn 

GO  TO  (1070.310).  KOOOFX  PRAD4910 

**************************************************************** •******PRAD4920 

*PRAD493o 

cNU  FREQUENCY  LOOP  *PRAD4940 

*!!™*^*!*!t*™************"****************************************PRAD496S 


1070  SI  s  13.1070 
CALL  UNCLE 

lOSO  SUMX2UNM1)  S  0.0 
JURUM  s  JORUM I 
REWIND  JORUM 
00  1090  I  s  IN.  IM 

EC(I)  s  o. 

X2 (II  s  SUMX2 (  I ) 

RHO(I)  s  EK(I) 

ER(I)  s  SUMX2 ( I )  -  SUMX2 ( I+l ) 


PRAD4970 

PRAD4980 

PRAD4990 


PRAD5020 


Z  EMI  +  l) )  -  A ( I )  *  (3.  *  SMLR(I)  -  EK ( I ) ) ) 
1090  CONTINUE 

X21IKP1)  s  SUMX2UMP1) 

RHO(IMPl)  s  EK(IMPl) 

:  EDIT  OF  OUTPUT  OUTPUT 

IF  (TO  .GT.  0.5  .AND.  CisTl  .LT.  CnTMAX) 
WHITE  (6.5)  CNT1.  TH 
WRITE  (6.7)  (CAPARU+120) .  IsI.NhNU) 

WRITE  (6.7)  (CAPARU+13S)  *  IsI.NhNU) 


l A ( I+l ) 


*  SMLr(I+1) 


GO  TO  1320 


5  FORMAT  (25H  OUTPUT  OUTPUT  FOR  CYCLE  F7.0.  10X7HTIME  =  IPE13.6) 

7  FOHMAT  (1P10L12.S) 
l320  RETURN 

cHO  PRAD6030 
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WIT  FOR  PTRANS/P*  PTKANS/P.  PTRANS/P1 
SUBROUTINE  PTRANS(N.M) 

COMPILED  OCTOBER  9#  1967  *BL 


C 

C 

c*. 

C, 

c 


PLANE  CHARACTERISTIC  TRACE  *ITH  DOUBLE  GAUSSIAN  INTEGRATION 
USES  THE  RADIATION  TRANSPORT  'STEP'  SUBROUTINE 


PTRA0030 


** 

S  P 

U  T  T  E 

♦*•***♦******♦♦ 

R  C  0  M  14  0 

COMMON.. 

LMDA (37) , 

NR  , 

IJSMLR  ,  IA 

1 

KMAX 

BLANK1. 

0LANK2, 

BLANKS,  I  API 

2 

II 

1G  , 

NR  AD  , 

BLANK4,  1 AMI 

3 

IIP1 

IGM1  , 

1ALPHA, 

OLANKb,  TH 

4 

FREG 

CNTMAX, 

AR  . 

ASMLR  ,  PUSHA 

5 

CVA 

C  VO  . 

SLUG  . 

ALPHA  ,  HVA 

6 

EMINA 

EMINB  , 

CA  « 

CB  ,  GA 

/ 

RhOL 

RNOH  . 

EP10  , 

EPS1  .  RIA 

0 

RP1A 

HP  10  , 

RPD1A  , 

HPDIO  »  TPRINT 

COMMON 

TO  » 

TE  , 

DTH2  «  DTH2P 

1 

DTMAX1 

0TMAX2, 

DTMAX 3, 

UTR  .  SWITCH 

2 

GAMA 

WCR1T  , 

SIGMAQ. 

AC  ,  AC03T4 

3 

R01A 

ROIAM1, 

ROIO  , 

HOIBP1 ,  GMS 

4 

S4 

S5  , 

S6  . 

57  ,  S8 

5 

S12 

S13  . 

S14  , 

S15  .  S16 

b 

S20 

EO  . 

FO  , 

TAU  ,  ZERO 

N 


ASCI 
OELR 
COMMON 


7 

B 

1 

2 

3 

4 

5 

6 
7 


152)  , 
37), 


15  2), 
152)  t 
152). 
152). 
152). 
BIGB  (152). 
152). 
152). 


W 

V 

X3 

SMLA 

EC 


CHIR 
0  CRTPC  ( 
COMMON 

1  FRLM 

2  ZP1 

3  RL 
9  HEAO 


37). 
37). 
37). 
12) . 


RU 

P 

P2 

E 

e 

X4 

smlb 

EH 

cv 

CAPAC 

GOFR 

TELM 

WLM 

2P2 

RHOK 

MAXL 


(152) . 
(152). 
(152). 
( 152) . 
(152). 
(152) . 
(152). 
(152). 
(152). 
(152) . 
(152). 
(  37). 
(  37). 
(  37). 
(104). 


IB 

IDP1 

IBM1 

TMAX 

PUSHB 

HVB 

GU 

RIB 

TA 

DTH1 

CO 

CNVRT 
SI 
S9 
S17 
R 


ICA 

ICAP1 

ICAM1 

BLANK6 

UOILA 

HCA 

GL 

HOI  A 
TB 

OTRMIn 

CMIN 

SUMRA 

S2 

S10 

sie 


'*******PTRA0050 
**PTRA0060 
•PTRA0070 
ICB  .PTRA0080 
ICUP1  .PTRA0090 
ICBM1  . PTRA01 00 
DELPRT .PTRAOllo 
BoILO  , PTRAO 120 
wee 

GR 

.PTRA0150 
PTRA0160 
DTMAX  .PTRA0170 
DELTA  .PTRA0180 
SUMRB  .PTHA0190 
.PTRA0200 
.PTRA0210 
.PTRA0220 


RDIB 

TC 


S3 

Sll 

S19 


.PTRA0130 

.PTRA0140 


VO 

PI 

SV 

El 

0 

X5 

SMLC 

SMLQ 

BC 


(152).  ROD 
(152).  PB 
(152).  RHo 
( 1S2) .  EK 
(152).  C 
(152).  X6 
(152).  SMLD 
U52).  SMLH 
(152).  BR 


(152).  DEL TAR ( 152 ) » PTRA0230 
(152).  SMLR  ( 152) . PTRA0240 
PB1  (152)  PTRA0250 
THETA  ( 152) .PTRA0260 


CAPAR  (152).  CRTC 


FEW  (152).  CAR 
EKLM  (37).  ELM 
OLM 

SOL  10  (  37) i  EClICK  (  37).  RK 


(152) 

(152). 
(152). 
(152).  X2 
(152).  X7 
(152) . 
(152).  BIGa 
(152).  CHIC 
(152). 
(152).  OKLM 
(  37),  FCLM 


SMLE 


( 152) .PTRA0270 
( 152) .PTRA0280 
(152)  .PTRA0290 
(152) .PTRA0300 
( 152) . PTRA031 0 
( 152)  ’.PTRA0320 
(152) .PTRA0330 
(  37)  PTRA0340 
(  37) .PTRA0350 


ROK 
MAXLM 


(104),  TH£TAK(104),  TEMP 


(  37),  AMASNO(  37),  CHRNO  (  37).PTRA0360 

( 104) , PTRA0370 
(  16) . PTRA0380 
PTRA0390 
••PTRA0400 
•PTRA0410 
PTRA0450 
PTRA0460 


COMMON  /LINULY/  HNU.SGNL, IHN«,NHNU*HNUP»NT,  IM, IN. DHNU. THICK, NT 
COMMON  /CNTRL/  SCYCLE,  JMULT 
COMMON  /OAVIS/  X(4000) ,  ICX,  ICY 

COMMON  /JIM/  NN,  FMU,  Rl»  R2»  HO,  EST.  II,  12,  GMP,  Al,  A3,  FMUS, 
2  FS,  LOF.  LRI »  1ZN»  TGI,  TG2,  F2 


DIMENSION  KR(40) 

DATA  RR/2. 113248E-01 , 7.086752E-O1, 1 .056624E-01 , 3.943376E-01, 

1  1 .127017E-01 »5.0UOOOOE-01»8.872983E-01»3.130600E-02> 

2  2.222222E~01 , 2. 46471 8E-0 1,6. 94318 0E-02, 3 . 300 095E-01 , 

3  6.699905E“01*9.305682E-01*i,207610E-02»i.076071E-01» 

4  2«164655E“01 , 1 . 61651 3E~01 « 4.69101 0E~02, 2. 307653E-01 , 


•PTHA0540 

PTRA0550 

PTRA0560 

PTRA0570 

PTRA0580 

PTRA0590 

PTRA0600 
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b 

SrOOOUOOfOlr  7.o92347E-01r9 

•530899fc.-0 1 r5«5S7100E-03r 

PTRA0610 

a 

5.b22S40t.-U2r  1.422222t-01rl 

.040889t-01rl.l29063E-01r 

PTRA0620 

7 

3.376520L-02r 1 .o93953E-01r  3 

.806903E-01 r&. 193096£-nir 

PTRA0630 

o 

8.3tl6047E-01r9.b62348E-01r2 

.892400E-03r3.0555?0E-02r 

PTRA0640 

9 

8.906b20E-02r 1.44891bE-01rl 

.498251E-01r8.276960E-02/ 

PTRA06S0 

c 

•PTRA0660 

C.* 

******* 

****♦*♦4 

>****PTRA0900 

DIMENSION  CSuU  (l)r  F’H 

(l)r  FM 

(D 

r  H  (D 

r  H2 

(Dr 

1  H3 

(l)i  M  (Dr  F y,b 

(Dr  01 

ID 

r  TG  (1) 

r  03 

(lJr 

2  037 

(Dr  036  (Dr  SUMX2  (Dr  SUMX3  (D 

r  SUMX4  (D 

r  X8 

(1J  ,P 

550 

i  v 

(Dr  Y2  (lir  OX 

(Dr  FL 

(D 

r  TR  (1) 

r  FSM 

(1J  rP 

4  FSP 

(D 

P 

c 

P 

57o 

EoU  I  VALENCE  (  AC03T 4  r  TRUbG  J  ' 

(BC 

r  SUMX4 ) r  (BIGA  rY 

JrP 

580 

1 

(BIGB  r  H  )r  (BN 

rH3  )r 

(CAR 

rQ37  Jr  (CHIC  rSUMX3JrP 

590 

2 

(CHlR  r038  )  r  (C<<TK  *SUMX2>r 

(X7 

*  PR  Jr  (GOFR  r 03 

JrP 

600 

3 

(  PB  r  01  )  r  (M2 

rEDITMF) r 

(EC 

rH2  J  r  ( 

W  rOX 

JrP 

4 

(SMLA  rFMb  )r  (SMLB  r FL  )r 

(SMLC 

r  TR  Jr  (SMLH  rH4 

JrP 

5 

(ER  rFM  ) r  (V 

r  TG  Jr 

(SMLU 

rFSM  Jr  (CRTC  rCSOD  JrP 

b 

(XS  r Y2  ) r  <X4 

rX8  Jr 

<smle 

rFSP  J 

P 

C,M 

******* 

*********** 

******** 

*«**P 

660 

c 

*P 

670 

c 

OX  CONTAINS  X  FROM  THE  PREVIOUS 

Y  LINE 

*P 

680 

c 

*P 

690 

c 

CSQO 

SAME  AS 

CRTC 

*P 

700 

c 

EOITMF 

SAME  AS 

S12 

*P 

710 

c 

U1 

SAME  AS 

PB 

*P 

c 

FM 

SAME  AS 

ER 

*P 

c 

H 

SAME  as 

BIGB 

*P 

740 

c 

H2 

SAME  AS 

EC 

*P 

c 

H3 

SAME  AS 

BR 

*P 

760 

c 

H4 

SAME  AS 

SMLH 

*P 

770 

c 

PR 

SAME  as 

X7 

*P 

c 

FMS 

same  AS 

SMLA 

*P 

c 

FL 

SAME  AS 

SMLB 

*P 

c 

TR 

SAME  AS 

SMLC 

*P 

c 

FSM 

SAME  AS 

SMLD 

*P 

c 

FSP 

SAME  AS 

SMLE 

*P 

c 

T2 

SAME  AS 

Xb 

*P 

c 

OX 

SAME  AS 

M 

*P 

c 

TG 

SAME  AS 

V 

*P 

c 

03 

SAME  as 

GOFK 

*P 

c 

037 

SAME  AS 

CAR 

*P 

840 

c 

038 

SAME  AS 

CHIR 

•P 

850 

c 

SUMX2 

SAME  AS 

crtr 

•P 

860 

c 

SUMX3 

SAME  AS 

CHIC 

•P 

870 

c 

SUMX4 

SAME  AS 

BC 

•  P 

880 

c 

TRUBG 

SAME  AS  AC03T4 

•  P 

690 

c 

Y 

SAME  AS  ' 

BIGA 

*P 

910 

c 

xe 

SAME  AS 

X4 

*P 

c 

*P 

940 

C**  * 

******** 

********** 

******* 

***TRAN  930 

c 

♦PTRA3910 

c 

PLAN 

E  S  ON 

L  Y 

♦PTRA0920 

c 

♦PTRA0930 
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. . . . . . . 

UX:n 

ibx=k 
inmi=in-i 
IMP1  =  1M  ♦  1 
CALL  UVCHMKGOOF  A) 

GO  TO  <100- 110).  i\000f  x 
100  S1=14.01U0 
CALL  UNCLE 
110  ItiXPl-lbt+l 
1 ALPHAS ALPHA 
C 

C  EKROH  IF  NOT  F'LANc 

C 

00  TO  (120-120.12U).  I ALPhA 
120  Sl=I4.0120 
CALL  UNCLE 

1J>0  NY  Z  LM0AO7)  -  1 

NI4U  =  tUY  -  1)  •  (NY  ♦  2)  ♦  1 
MuS  =  NMU  ♦  NY  ♦  1 
JO  S  0 
C 

C  DO  POSIT 1 VL  A NOLLS  FIRST 

C 

140  1=1 AX 
F2=0.0 
FS  =  0.0 
FMU  =  RR(NMJ» 

LRI  :  1 
C 

C  IF  1/.XSIN  THANSFth  TO  ISO  To  SET  SPECIAL  DOunOARY  CONOIYIqNS 

c 

IF  (IAX-In)  260 » ISO * 100 
C 

C  CALCULATE  BOUNDARY  SOURCt  INTENSITY 

c 

ISO  IF  (INMl)  100-210.170 

c 

C  SET  BLACKbOOY  COfJOITION  FOR  PUSHER 

C 

160  S1=14.0160 
CALL  UNCLE 
170  F2-X01 INH1 ) 

GO  TO  310 
C 

C  DIFFUSION  bOUNuARY  CONOlTION  AT  IAX 

C 

180  LDF  =  1 
GO  TO  220 

210  IF  («oS(TG<i>in  .LT.  l.E-20)  Y2(I-i)  =  x6(I-l) 

X8(I-1)=TG(I-U*RK<NMU) 

c 

C  REGULAR  INTEGRATION  STEP  FOR  F2.  POSITIVE  PU 

C 

220  IF  (ABS(TGd)>  .LT.  l.E-20)  Y2(I)  s  X6(I-1) 


»PTrA09«0 

PTRA0950 

PTRA0960 

PTRA0980 

PTRA0990 

PTRA1000 

PfRAlOlO 

PTRA1020 

PTRA1030 

PTRA1040 

PTRA10S0 

PTRAI060 

PTRA1070 

PTRX1080 

PTRA1090 

PTRAllOO 

PTRA11I0 

PTRA1120 

PTRA1120 

PTRA1140 

PTRA1150 

PTRA1160 

PTRA1170 

PTRAUBO 

PTRA1190 

PTRA1200 


PTRA1210 

PTRA1220 

PTRA1230 

PTR.M240 

PTRA1250 

PTRA1260 

PTRA1270 

PTRA1280 

PTRA1290 

PTRA1300 

PTRA1310 

PTRA1320 

PTRAI330 

PTRA1340 

PTRA1350 

PTRA1360 

PTRA1370 

PTRA1380 


PTRA1500 

PTRAlSlO 

PTRA1520 

PTRA1530 
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XQI 1 >=Tu I 1 ) *hH (NMUI 

11  -  1  -  l 

12  =  l 

R1  =  C(i-l) 

R2  :  Clll 
UN =1-1 
Twi  =  xa<i-i> 

TG2  =  XU  C 1 ) 

MU  =  h2(I-1>/KI<(NhU> 

CALL  STEP 
26U  SUMXj(I)=F2 

IF  (AaSIfGdP  .LT.  l.t-2i)»  Y2I1)  =  x6ll) 

X = 1  ♦  1 

IF  (I  .01.  IUXP1 )  00  TO  32 u 

IF  <1  ,Lt.  ICX  ♦  1>  00  TO  220 

c 

c  NO  SOUHCt  IN  ZONE  GREATER  THAN  ICX 

CAVEAT.  SCATTtRING  IN  SOURCELESS  REGION  NOT  HANDLED  PHOPERLY  HfRe 
IF  (F2«  EQ. 0. 0 )  GO  TO  2oU 
TEMPI  l)=H2d-I)/HK(NMU» 

Mi*  ( 1-1 )  SFHEXP  ( -TtMP  1 1 ) -Tt.-»P  (1)  ) 

F2=F2*H4 1 1-1) 

GO  TO  260 

300  IF  (F2.EU.0.0)  00  TO  310 
TEMP  1 1 ) =H2 1 1 -1 » /HRl NMU ) 

M<*  ( 1-1  J  =FHEXP(  -  TlmP(  1 )  -TEMP  III) 

F2=F2*H4 1 1-1 ) 

310  SUMX3 ( I )  =  F2  . 

FSMIU  =  FS 
LOF  r  2 
1=1*1 

IF  I I-1CT )  300.300*210 
C 

c  UO  NEGATIVE  ANGLES  SECOnO 

320  ISIBXP1 
FS  =  0.0 
LMI  =  2 

IF  I 1BX-1K)  370. 330. 360 
330  IF  (GLl  480.520.340 

C  GL  =  1/2  MEANS  BLaCKBOOY  C0..0IT10N  SET  AT  IMP1 

C  GL  =  PGSITlVt  INTEGER  INPUT  OPTION  DELETED 

C  GL  s  0  MEANS  VACUUM  AT  I  API 

C  GL  NEGATIVE  MEANS  REFLECTIVE  CONDITION  AT  1MP1 
340  IF  (GL.NE.O.S)  GO  TO  350 
F2  =  X6IIMPU 
GO  TO  480 
350  SI  =  14.0350 
CALL  UNCLE 
C 

C  ERROR  IF  INOEX  EXCEEDS  NORMAL  RANGE 

360  51=14.0360 
CALL  UNCLE 
C 


PTRA15S0 


PTRA1640 

PTRA1660 


PTRA1740 

PTRA1750 


PTRA1780 

PTRA1790 

PTRA1800 

PTRA1810 

PTRA1820 

PTRA1830 

PTRAI840 

PTRA1850 

PTRA186Q 


FTRA1870 

PTRA1880 

PTRA1890 

PTRA1900 

PTRA1910 

PTRA1920 


PTRA1930 
P TRA1940 
PTRA1950 

PTRA1970 

PTRA1980 

PTRA1990 

PTRA2000 

PTRA2010 


PTRA2050 

PTRA2060 

PTRA2070 

PTRA2080 

PTRA2090 

PTRA2100 
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DIFFUSION  dOUl.jAKr  CONDITION  AT  I8XP1 


370  LOF  =  1 
60  TO  400 

399  IF  ( AdS ( TG t I  +  l ) )  .LT.  l.E-20)  Y2d*l)  =  X6(I> 


C  REGULAR  INTEGRATION  STEP  FOR  F2»  NEGATIVE  MU 

400  IF  (AbS(TGd)  )  .LT.  l.t-20)  T2(I)  =  X6(I) 

11  =  I  ♦  1 

12  s  I 

R1  =  -Cd+1) 

R2  =  -C< I) 

I2N  =  I 

TGI  =  -Xdd+l) 

TG2  =  -Xd(I) 

HO  =  H2( I ) /HH (NMU) 

CALL  STEP 
440  SUMX4(I)=F2 

FORM  CONTRIBUTION  TO  X2 

X2(IJ=X2(U-(F2-SUMX3(I)  )*KK(NGS) 

RHO(I)  =  RHO ( I )  +  (F 2  +  SUMX3 ( I ) )  *  RR(NGS)  /  RR(NMU) 

PR(I)  =  Pud)  *  <F  2  ♦  SUMX3  ( I )  )  *  RR(NGS)  *  RR  (NMU) 

FL(I)  =  X2(I) 

TRd)  =  TRdJ  -  (F2  -  SUMX3 (I )  )  *  HR(NGS)  *  RR(NMU)  *  RR(nMU) 
IF  (AbS(TG(I))  .LT.  l.E-20)  Y2d)  s  X6d-1) 

1=1-1 

IF  (I-IAX)  bJ0.4bu.4b0 
4b0  IF  d-ICYJ  bOO. 400. 400 

NO  SOURCE  IN  ZONE  LESS  THAN  ICY 

470  IF  CF2.EQ.0.0)  GO  TO  480 
TEMP ( 1 ) SH2 (I J /RR ( nMU ) 

H4(I ) 5FREXP( -TEMP( 1 ) -TEMP (1 ) ) 

F2=F2*H4 ( I ) 

480  SUMX4 ( I ) s F2 

490  X2(I)=X2d)-(F2-SuMX3d)  )*RR(NGS) 

RHO(I#  =  RHOd)  +  (F2  ♦  SUMXSd))  *  RR(NGS)  /  RR(nMU) 

PRd)  s  PR  ( I )  +  <F2  +  SUMXSd))  *  KR(NGS)  *  RR(NMU) 

FLd)  =  X2(I) 

TR(I)  s  TKd)  -  <F2  -  SUMXSd)  )  *  RR(n3S)  *  RR(NMU)  •  RR(rjMu) 
LOF  =  2 
FSP(I)  =  FS 
ISI-I 

IF  (I-i-ICX)  399.470.470 


NO  source  in  zone  less  than  icy 


500  IF  (F2.EQ.0.0)  GO  TO  blO 


TEMP ( 1 ) =H2  d ) /RR ( NMU ) 

H4 (I ) SFREXP ( -TEMP ( 1 ) -TEMP (1 ) ) 
F2=F2*H4<I) 


PTRA2110 

PTRA2I20 


PTRA2230 

PTRA2240 

PTRA2250 


PTRA2330 

PTRA2340 

PTRA2350 

PTRA2360 

PTRA2370 


PTRA2420 

PTRA24J0 

PTRA2440 

PTRA2470 

PTRA2480 

PTRA2490 

PTRA2500 

PTRA25I0 

PTRA2520 

PTRA2530 

PTRA2540  - 

PTRA2550 


PTRA2560 

PTRA2570 

PTRA2580 

PTRA2590 

PTRA2600 

PTRA2610 

PTRA2620 

PTRA2630 

PTRA2G4Q 


143 


AFWL-TR-67-131,  Vol  III 


510  SUMX4(i)=F2 

X2 1 1 ) =X2 ( I ) - ( F2-5uMX3 ( I )  )  *RR(f\,GS) 

*.  iFii  *  SUMX3 ( I ) )  *  RR(NGS)  /  RR(nMU) 

FL(I)  -  X2(I)  +  F2  +  SUMX3(I,)  *  WRINGS)  *  RR(NMU) 

TRII)  =  THU)  -  <F2  -  SU, -1X3(1))  *  KR(nGS)  *  RR(NMU)  *  RR(nmu) 

IF  (I-IAX)  53U • 5UG  * SOU 
520  F2=0.0 

GO  TO  480 
530  CONTINUt 

IF  (AbS(TRUbG)  .LT.  l.E-20)  GO  To  539 
UEbUG  PHINT  OF  INTENSITIES 
JJJ  —  JJ  +  1 

IF  IJJJ  .EO.  1)  WRITE  (6*b) 

WHITE  (6*10)  JJJ*  HR(NMU) 

WHITE  (6*9) 

00  65  I  =  IAX*  IBXP1 
65  WHITE  16*5)  I*  SUMX3II).  SUmX4(I) 

5  FORMAT  < I4»  1PE11.4.  £14.7  ) 

8  FORMAT  I28H1PLANE  TRANSPORT  DEbUG  PRINT/) 

9  FORMAT  ( 7X1HI •  7X7HI  RIGHT*  8X6HI  LEFT) 

^P^h/)***  ,27H  GAUSSIAN  QUADRATURE  ANGLE  12*  17H  WHOSE  COSInE  Is 


8  FORMAT 

9  FORMAT 
10  FORMAT 


2.8/) 

IF  (THDBG  .GT.  bb. )  TRDQG  =  TRDUG  -  69. 

539  UHNU=HNUP-HNU 

540  JJ  :  JJ  tl 
NMU  S  NMU  ♦  1 
NGS  =  NGS  +  1 

IF  (JJ-NY)  140*140*550 
550  UO  5b0  I=IAX* IbXPl 
560  X2II)  S  X2 1 1 ) *  2.052E12 
RETURN 
ENU 


PTRA2650 

PTRA2660 


PTRA2670 

PTRA2660 

PTRA2690 

PTRA2700 

PTRA271Q 


REDI0920 


REDI0640 

REDI0650 

F11REDI0660 

REDI0670 

PTRA2810 

PTRA2820 

PTRA2830 

PTRA2840 

PTRA2850 

PTRA2860 

PTRA2870 

PTRA2880 

PTRA2890 
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8,T  FOR  STHmNS/S»  STRANS/S.  STRaNS/SI 
SUdROUT INE  STKANS(N.M) 

COMPILED  OCTOdtR  9.  19o7  *OL 

C  MOL) IF I tD  FOR  COMPTON  SCATTERING  ANU  IMPROVED  LOGIC 

C  ANGULAR  INTEGRATIONS  O'l  LINcAR  FORM 

C  CONNECTED  LInEAR-wUAURAT IC  INTERPOLATION  AT  X=0  • 

C  EPSI  IS  Y  LIMIT  OF  tOIT  TUUl 

C  LMUA<«:&)  IS  INTERFACE  INDEX  OF  EDIT  TUttE  APERTURE 


TRAN  20 
TRAN  30 


SPUTTER 


COMMON  LMUAI37) 
1  KMAX  *  BLANK  1 


4  FRtU  »  CNTMAX 

5  CVA  *  CVii 

6  EMI NA  .  EMlNcJ 

7  RHOL  »  HrtOR 

0  RPIA  .  RPId 

COMMON  TU 

1  DT.4AXI*  UTMAX2 

2  GAMA  i  WCHU 

3  R01A  .  HO I AMI 

4  S4  .  SS 

5  S12  .  S13 

6  S20  .  EO 

7  ASG  (1521.  RU 

0  DELR  (  371.  P 

COMMON  P2 

1  M  (152).  E 

2  V  (152).  G 

3  X3  (152).  X*4 


R01A 

S4 

S12 

S20 

ASG 


2  V  (152) 

3  X3  (152) 

4  SMLA  (152) 

5  EC  (152) 

6  BI&o  (152) 

7  CHIR  (152) 
0  CRTPC  (152) 

COMMON 

1  FHLM  (  37) 

2  2P1  (  37) 

3  RL  S  37) 

4  HEAD  (  12) 


>7),  NR 
1*1.  dLA  JK2 
.  NRAD 
L  .  1 ALPHA 
(AX.  AH 
•  SLUG 
)<J  .  CA 
l  .  EPIO 
t  •  rPDIA 
.  TE 

<X2 .  DTI1AX3 
[I  .  SIGMAd 
(Ml.  ROILi 
.  S6 
.  S14 
.  FO 

RU  (152 

P  (152 

P2  (152 

E  (152 

G  (152 

X<*  (152 

SMLd  (152 


CApAC  (152 
GOFR  (152 
TtLM  (  57 


RHOK  (104 
MAXL 


R  CO 

M  M  0 

****** 

N 

• 

** 

+  + 

NSKLR  . 

1A 

.  IB 

.  ICA 

9 

ICO  . 

DLANK3. 

IAP1 

.  IUP1 

•  ICAP1  . 

ICBP1  . 

ULANK4. 

I  AMI 

.  IBM1 

•  ICAM1  • 

ICBM1  , 

oLANKS. 

TH 

.  TMAX 

,  BLANKS. 

DELPRT. 

ASMLR  . 

PUSHA 

.  PUSHB  .  UOILA  , 

BOILO  , 

ALPHA  . 

HVA 

.  HVB 

.  HCA 

9 

HCB  » 

CB  . 

GA 

.  GB 

•  GL 

9 

GR  . 

EPSI  . 

HI  A 

.  RIB 

.  RDI A  . 

RUIB  » 

HPOIB  . 

TPRINT 

.  TA 

.  TB 

9 

TC 

UTH2  • 

DTH2P 

•  DTHl 

,  DTRMIN. 

DTMAX  , 

UTR  . 

SWITCH 

.  CO 

.  CMIN  • 

DELTA  , 

AC  . 

AC03T4 

.  CNVRT  .  SUMRA  • 

SUMRO  , 

ROIBP1. 

GMS 

.  SI 

.  S2 

9 

S3  . 

S7  . 

SS 

.  S9 

•  S10  . 

SU  , 

SIS 

S16 

.  S17 

»  SIS  . 

S19  , 

TAU  . 

ZERO 

.  K 

( 1S2 ) . 

DELTAR ( 152) . 

.  VU 

(152) » 

ROD 

(152). 

SMLR 

(152). 

.  PI 

(152). 

PU 

(152). 

PB1 

(152) 

•  SV 

(152). 

RHO 

(152). 

THETA  (152). 

.  El 

(152). 

E* 

(152), 

A 

(152), 

.  D 

(152). 

C 

(152). 

X2 

(152). 

.  xs 

(152)  » 

X6 

,152). 

X7 

(152), 

»  SMLC 

(152) . 

SMLD 

(152). 

SMLE 

(152). 

.  SMLQ 

(152) » 

smlh 

(152). 

RIGA 

(152) , 

.  BC 

(152) » 

br 

(152). 

CHIC 

(152), 

.  CAPAR 

(152). 

CRTC 

(152), 

CRTR 

(152), 

.  FEW 

(152). 

CAR 

(152). 

OKLM 

(  37) 

.  EKLM 

(  37). 

elm 

(  37). 

FCLM 

(  37), 

.  QLM 

(  37). 

AMASNO(  37). 

CHRnO  (  37), 

.  SOLID 

(  37). 

ECHCK 

(  37), 

RK 

(104), 

.  RDK 

(104). 

THETAK(I04) . 

TEMP 

(  16), 

MAXLM 


c;**********.*********** »***•«••*«**•*•*•***•*•**••*••*****•***••••*•***  0.M 

COMMON  /LINDLY/  HNU.SGNL. IHNU. NHNU. WNUP.NT. IM. IN.DHNU. THICK. NY  THAN  450 
COMMON  /UAVIS/  X (4000) .  ICX.  ICY 
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c 


common  /jim/  nn.  fmu#  ru. 

K«J.  HO*  1ST*  11* 

12.  GMP* 

Al.  A3.  F  HUS  * 

2  FS* 

LLFf  LHl  »  i/I, 

*  TGI*  TG2*  F2 

UIMEhSION  CSOU 

( 1 ) «  PR 

(1J*  FM 

(1) 

•  H 

(1).  H2 

(1). 

. 

I  H3 

( 1 ) *  H4 

U>*  FKS 

<11.  01 

(1) 

.  TG 

(1).  03 

(1). 

2  037 

(1)'  w38 

<11.  SUMX2  (1>*  SUMX3  (1) 

•  SUMX4 

(i>.  xa 

(1)  ,P 

550 

3  T 

Cl).  12 

(1)*  OX 

(11*  FL 

(1) 

.  TR 

(1).  FSM 

(1).P 

4  FSP 

(1) 

P 

P 

57o 

EwUI VALENCE 

(AC03T4* TKDDG> * 

<uc 

•SUMX4) * 

(BIGA  * Y 

l.P 

580 

1 

(HIGH  *  H 

1.  (UK 

•  H3  >* 

(CAR 

.037  ). 

(CHIC  »SUMX3)  .P 

590 

2 

(CHlR  *J 3b 

1.  (CKTH  * SUMX2 ) * 

<X7 

.PR  ) . 

(GOFR  .33 

l.P 

600 

3 

(  PU  .31 

)•  (S12 

•EOITMF) * 

(EC 

»H2  )  * 

(  M  .OX 

l.P 

4 

(SMLA  .FMS 

1.  (SMLB  *FL  1. 

(SMLC 

.TR  ) . 

(SMLH  . H4 

l.P 

S 

(ER  .FM 

1.  (V 

•  TG  >» 

(SMLD 

.FSP  ). 

(CRTC  .CSQO  l.P 

6 

(XS  » T2 

)  •  (X4 

*X8  )• 

(SMLE 

.FSP  ) 

P 

•  ♦♦♦P 

660 

OX  CONTAINS  X  FROM  THE  PREVIOUS 

Y  LINE 

*P 

680 

•P 

690 

CSQO 

SAME  AS 

CRTC 

•  P 

700 

EDITMF 

same  as 

S12 

•  P 

710 

01 

SAME  AS 

PB 

•  P 

FM 

SAME  AS 

EH 

*P 

H 

SAME  AS 

BIGB 

*P 

740 

H2 

SAME  as 

EC 

*P 

H3 

same  AS 

BK 

•  P 

760 

H4 

SAME  AS 

SMLH 

*P 

770 

PR 

SAME  AS 

X7 

•  P 

FMS 

SAME  AS 

SMLA 

•  P 

FL 

SAME  AS 

SMLD 

•P 

TR 

SAME  AS 

SMLC 

•  P 

FSM 

SAME  AS 

SMLD 

*P 

FSP 

SAME  AS 

SMLE 

*P 

Y2 

SAME  AS 

X5 

•P 

OX 

SAME  AS 

M 

•  P 

TG 

SAME  AS 

V 

*P 

03 

SAME  as 

GOFH 

•  P 

830 

037 

same  as 

CAR 

•  P 

840 

Q3B 

SAME  AS 

CHIR 

•P 

850 

SUMX2 

SAME  AS 

CRTR 

•  P 

860 

SUMX3 

SAME  AS 

CHIC 

•P 

870 

SU«X4 

SAME  AS 

BC 

*P 

880 

TROBG 

SAME  AS  AC03T4 

*P 

890 

T 

SAME  AS 

BIGA 

*P 

910 

xa 

SAME  AS 

X4 

•P 

. 

*P 

940 

****** 

.•♦•TRAN 

930 

TRAN 

940 

TRAN1040 

TRAN10S0 

TRANX060 


IAX2H 

IBX=M 

THICK  =  0.0 
I TUBE  s  LmOA ( 2o I 

IF  (C(ITUQE>  .LT.  EHSI)  GO  TO  1 
XTU8E  =  SORT (CS0U( I  TUBE)  -  EPSI»*2> 
CAU.  OVCHK(KX) 


146 


AFWL-TR-67-131,  Vol  III 


60  TO  <1»3>»  KX 

1  51=14.0001  TRAN1090 

CALL  UNCLE  TRANllUO 

3  lBXPl=IbX*l  TRAN1110 

I ALPHA=ALPHA  TRAN1120 

C  TRAN1130 

C  ERROR  If-  NOT  SPHERE  TRAN1140 

C  .  TRANllbO 

GO  TO  lb»5>7)»  I  ALPHA  TRAN1160 

5  51=14 .0005  TRAN1170 

CALL  UNCLE  TRANU80 

C  TRAN1190 

C  SPHERE  ONLY  TRAN1200 

C  TRAN1210 

7  I=IBXP1  TRAN1220 


FS  =  0.0 
FMU  =0.0 
LRI  =  1 

IF  (IUX  -  IM)  37,  b»  11 
8  F2  =  0.0 

IF  (GL  .GT.  0.)  F2  =  XotIM+1) 
GO  TO  23 


C  TRAN1250 

C  ERROR  IF  INDEX  EXCEEDS  NORMAL  RANGE  TKAN1260 

C  TRAN1270 

11  S1=14.0011  TRAN1280 

CALL  UNCLE  TRAN1290 

C,« ************** *************  ******* ******************** ********* ****** TRAN1300 
C  *TRANl3lO 

C  CALCULATE  Y=0  RAY  *TRAN1320 

C  *TRAN1330 

C«*****« *************************************************************  ***TRAN1340 


c 

c 

c 


LHS  OF  RAY  FIRST,  STORE  FZ  IN  SUMX3. 


13  II  =  I  ♦  1 
12  =  I 

R1  =  -Ctl+l) 

R2  =  -Ctl) 

HD  =  H2( I ) 

UN  =  I 

TGI  =  -TG(I+1) 
TG2  =  -TG(IJ 
CALL  STEP 


TRAN1350 

TRAN1360 

TRAN1370 


c 

TRAN1700 

c 

SAVE  LHS 

INTENSITIES  IN 

SUMX3 

TRAN1710 

c 

23  SUMX3(I)=F2 

TRAN1720 

TRAN1730 

FSM(I)  =  FS 

IF  (AaS(TGd))  .LT. 
1=1-1 

l.E-20) 

Y2CI) 

=  X6 ( 1-1 ) 

TRAN1750 

LDF  =  2 

IF  (ABS(TGd))  .LT. 

.  IF  ( I— I AX)  47.13.13 

l.E-20) 

Y2  ( I ) 

=  X6(I) 

TRAN1770 

c 

TRAN1990 
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DIFFUSION  BOUNDARY  CONDITION  AT  IBXP1 

37  IF  ( ABS ( To ( I ) )  .LT.  l.E-20)  Y2tl)  =  X61I) 

LUF  s  1 
60  TO  13 

• RHS  OF  KAY 

47  I=IAX 
IAXP=IAX 
LRI  =  2 

IF  ( IAX  -  IN)  11.  40*  bl 

48  IF  (IN  -  1)  11*  49*  50 

49  IAXP=1N+1 
KH0d)=SUMX3(l>*2. 

PR(l)=SUMX3(l)*.ob67 
60  TO  69 

50  IAXP  =  IN 

F2  =  X6UN-1) 

60  TO  69 

DIFFUSION  BOUNDARY  CONDITION  AT  IAX 

51  LOF  =  1 

H4(I-1)  =  FREXP(-H2(I-1) ) 

60  TO  59 

RE6ULAR  INTEGRATION  STEP  <Y=0*RHS) 

59  II  S  1  -  1 
12  =  I 
R1  =  C(I-l) 

R2  =  C(I> 

HU  =  H2( 1-1) 

IZN  s  I  -  1 
T61  =  TG(I-l) 

T62  =  T6(D 
CALL  STEP 

SAVE  RHS  INTENSITIES  IN  SUMX4 


TRAN2000 

TRAN2010 


TRAN2380 

TRAN2390 

TRAN2400 

TRAN2410 

TRAN2420 


TRAN2440 

TRAN2450 

TRAN2460 

TRAN2490 


TRAN2500 

TRAN2510 

TRAN2520 


TRAN2830 

TRAN2840 

TRAN2B50 


TRAN3120 

TRAN3130 

TRAN3140 

TRAN3140 


TRAN3180 


69  SUMX4 ( I )  =  F2  TRAN3140 

FSP(I)  =  FS 

OX(I)=C(I)  TRAN3160 

IF  (ABS(TG(I>>  .LT.  l.E-20)  Y2(I)  =  X6(I) 

LOF  s  2 

1=1*1  TRAN31B0 

IF  (ABS(TGd) )  .LT.  l.E-20)  Y2d)  =  X6(I-1) 

IF  d-IBXPl)  59*  59.  85 

C ************************** ♦♦♦♦♦♦♦♦♦♦♦♦♦********************************TRAN3470 
C  *TRAN34B0 

C  COMPLETE  YzO  RAY  *TRAN3490 

C  *TRAN3500 

C********* ********************************************************* *****TRAN351o 
as  YSQ0P=0.0 
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jj=i 

JJJ=1 

KK=1 

SEARCH  FOR  Y-LINE  NEAR  HALF  OF  C<1AX) 

C1=0.50*C(IAX) 

IT  =  1AX  ♦  1 
GO  TO  kHi 


TRAN3530 

TRAN3540 

TRAN3SS0 

TRAN3S60 

TRAN3570 

TRAN3S80 

TRAN3590 


^********** ***************************** ********************************TRAN3620 
C  C  c  T  ,  ~  *TRAN3630 
C  SETUPY-L1NES  *TRAN3640 

Cc . . . 


FIRST.  TEST  IF  Y  LIES  OUTSIDE  OF  ACTIVE  MESH. 
«7  IF  (JJ  .LE-  NY)  GO  TO  8d 


THAN367  0 
TRAN3680 
TRAN3690 


SI  =  14.0087 
CALL  UNCLE 

88  IF  ( C ( IQXP1 )  .LT.  Y(JJ)  #  l.OOOOOD  GO  TO  127 
C  Y-LlNE  IS  INSIuE  ACTIVE  -1ESH. 

IF  (Cl  1AX1-YI  JJ) )  89..107.97 

89  IF  <C< IT)  .GT.  Y ( JJ)  •  .999999)  GO  TO  107 
IT  =  IT  ♦  1 

GO  TO  89 

97  IF  (C(lAX-l)  -  Y ( JJ) )  9a,  107.  98 

98  IF  (Cl  .LT.  0.5  *  (Y(JJ)  ♦  YIJJ+1)))  GO  TO  103 

JJSJJ+1 


TRAN3730 


KK=KK-IFIX(X(KK*1) )+2 
GO  TO  87 


SEARCH  FOR  Y-HuE  NEAR  THREE  QUARTERS  OF  CCIAX) 

103  Cl=Cl*0.25*CCIAX) 
kLCULABLE  Y-LlNE  FOUND  —  PROCEED 
107  YSQDPS-X(KK) 

FMU  =  YSQDP 


TRAN3790 
TRAN3800 
TRAN3810 
TRAN 3020 
TRAN3830 
TRAN3840 

TRAN 3070 


KSKK+IM-I3X+2 
TEMP { 5) =YSQDP-YSQul 
GO  TO  167 


COMPLETE  X2  INTEGRATION  when  LAST  Y-LINE  USED 


127  DO  139  I=IAXP.1HXP1 

ANGULAR  INTEGRATION  OF  X2  USING  LINEAR  INTERPOLATION 

FNL  s  SUMX4CI)  -  SUMX3C I ) 

XSQ  s  OX( I)**2 

X2tl)  =  X2CI)  ♦  FNL  *  (XSQ  ♦  XSQ) 

129  IF  (IBX-IM)  131.13S.171 
131  IF  (I-IAXP)  171.133.137 
133  XS=SgRT(CSQ0(IBXP1+1)-CS0D(IBXP1) ) 


TRAN3880 

TRAN309O 

TRAN3900 

•TRAN4170 

•TRAN410O 

♦TRAN4190 

♦TRAN4200 

TRAN4210 

TRAN4220 

TRAN4230 

TRAN424Q 


TRAN4290 

TRAN4300 

TRAN4310 
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xs  7  C(1Ux,J1*1>  *  TodfixPin,  . 

60  TO  137 
135  FH(  ItJXPl )  =0  •  U 
137  TEMPlS)=CSOU(IHXHl)-fSJii 
TEMPI  Ills  CS0Ud)-YS«Dl 

FU=(TEMPC  )!)♦  (FM(IbAPl)  *f  IUXP1)  }  ♦  ( CSQO  ( IbXPl )  - 
1  CSGOd  >  )*  (Su,‘iX4d.'.XP)  +  aU;4X3<  I AXP) ) )  /TEMP  (5) 

FLX  s  SUNXJd)  ♦  SUVA*.  (I) 

FP  s  FLX  ♦  FU 

FPL  s  FP  ♦  FLX 

RMO ( I ) =HHO d ) +0X ( I ) *r P 

PKtD  S  PKd)  ♦  XSO  *  »FP(_  ♦  PLX)  •  OX  (I) 

TR(I>  s  TM1)  ♦  XS0#«<.  •  FNw  •  4. 

139  CONTINUE 


COMPLETION  OF  X  2  INTEGRATION 
LNU  OF  TRANS  REGION 


00  151  I-IAX«  IliXPl 

IF  d.EO.l)  GO  TO  151 

PK( I)=PK( I )• .0H334/(CS  <L ( I )*C(I ) ) 

RHOd)=Rrt0d)*0.5u/Cd) 

FLl  1 )  s  .1666667  •  X2(I>  /  CSOOd) 
IF  (I  ,GT.  1)  GO  TO  1<*7 
TR(l)  s  o. 

GO  TO  151 

147  TRd)  S  TRd!  •  .05  /  CS;0d>**2 

151  X2( I)=X2( I  >*1.02bE12 
CALL  UYCHK(KX) 

60  TO  (152#  153)#  KX 

152  SI  s  14.0152 
CALL  UNCLE 

153  RETURN 


typical  y.-line  integration 


lhs  calculation  first. stohe  F2  in  fm 

167  ISIUXP1 
FS  =  0.0 
LRI  ~  1 

IF  ( IUX  -  IM)  173#  168.  171 

168  F2  =  0.0 

IF  (GL  .GT.  0.)  F2  =  XbdM+1) 

GO  TO  205 


ERROR  IF  INDEX  exceeds  normal  range 


171  Sl-14.0171 


TRAN4340 

TRAN4350 


TRAN4440 


•TRAN4500 

♦TRAN4510 

♦TRAN4520 

•TRAN4530 

♦TRAN4540 

•TRAN4550 


TRAN4690 

TRAN4700 


TRAN4730 


TRAN4740 

♦TRAN5230 

•TRAN5240 

♦TRAN5250 

♦TRAN5260 

♦TRAN5270 

TRAN5280 

TRAN5290 

TRAN5300 

TRAN531Q 


TRAN5340 

TRAN5350 

TRAN5360 

TRAN5370 
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CALL  UNCLE 
C 

C  DIFFUSION  BOUNDARY  CONDITION  AT  IBXP1 

C 

173  IF  ( ABS (10(D)  .LT.  l.E-20)  Y 2(1)  =  X6(I> 

X8d  +  1)  =  X(K-l)  /  Cdd)  *  TGd  +  l> 

LOF  =  1 
C 

C  SAVL  Xtt  FOR  RHS=(uIFF  INTENSITY) 

C 

161  Xd(I)=k(K)/C(I)«Tb(I> 

HO  =  (X(K-l)  -  X(K) )  *  H(l) 

C 

C  REGULAR  INTEGRATION  STEP(LHS) 

C 

11  =  I  +  1 

12  -  I 

R1  =  -X(K-l) 

K2  =  -X (K ) 

IZN  =  I 

TGI  =  -XUd  +  1) 

TG2  =  -XUd) 

CALL  STEP 
C 

C  SAVE  F3  OF  LHS  IN  FM  FOR  INTEGRATION. 

C 

191  FM(  I)=F2 

FSM(l)  =  FS 

IF  ( AUS(TG( I ) )  .LT.  1.E-2U)  Y2(I)  =  X6(I-1) 

1=1-1 
LUF  =  2 
K=K+1 

IF  (ABS(TGdl)  .LT.  l.E-20)  Y2(I)  =  X6d) 

IF  (I-IAX)  239. 193*193 
193  IF  (X(K) )  19S.207.181 
C  Y-HNE  HAS  MADE  CLOSEST  APPROACH 

19b  TEMP (2)  =SGRT  (DEL TAR ( I )  * (4.0*C  ( I)  +OELTAR d  )  >  ) *H d  > 

IF  ( ABS ( TEMP (2) )  .LT.  l.E-20)  GO  TO  223 
HU  =  X(K-l)  *  Hd) 

TEMPd)  =  HU  ♦  HD 

11  =  I  ♦  1 

12  =  I 

R1  =  -X(K-l) 

R2  =  0. 

IF  (TEMP(l)  -  .02)  197.  197.  201 

C  THIN  LHS  XK=0. 

197  TEMPdb)  =  (Y2ddJ+X6d)  )  *0.b*TEMP  ( 1) +(0.667*Y2  (I)-0.5*Y2  ( 1  +  1) 
1  -0. 167*X6( I ) ) * TEMP (2) 

NN  =  0 
CALL  SCAT 

a  =  AMAXKO. .  1.  -  F  MUS  /  Hd)) 

F2  =  FS  +  F2  *  d.  -  TEMPd)  )  ♦  Q  *  TEMPT  16) 

GO  TO  223 

201  H4d)=FREXP<-TtMPd)  ) 

C  NORMAL.  LHS  XK=0  • 


TRAN5380 

TRAN5390 

TRAN5400 

TRAN5410 


TRAN5730 

TRAN5740 

TRAN5750 

TRAN57bO 

TRAN5780 

TRAN5790 

TRAN5800 


TRAN6110 

TRAN6120 

TRAN6130 

TRAN6140 


TRAN6160 

TRAN6170 

TRAN6190 

TRAN6200 

TRAN6210 


TRAN6310 

TRAN6290 

TRAN6300 


TRAN6380 

TRAN6390 

TRAN6430 


151 


AFWL-TR  -67  -131,  Vol  III 


nn  =  i 

TEMP(7)rFH£XP(-TEtoP<2)  ) 
TcMP(13)=<X6<I)-Y2(I))/TZMP<2)**2*2.0 
TEMP(Xb)  =  (X6(I)-Y2<  Uin/(TtMP(l)-TEMP(2) 

CAVEAT.  H4  IS  THE  SJUAkE  OF  ITS  NORMAL  VALUE. 
EST  =  1.  -  Hh ( I ) 


) 


CALL  SCAT 

Q  -  AMAX1 ( 0 • »  1.  -  KMUS  /  H(I)) 

F2  =  FS  ♦  F2  *  H4  <  I )  ♦  (.  *  (Y2(I)  ♦  TEMPI  13) 
i£  (IS)  -  TEMP(IU)  *  (TE,VP(2)  ♦  1.))  ♦  H4(I)  * 
GO  TO  22 3 


C 

c 

c 


first  thanspop  r  zone  on  lhs 


♦  TEMP ( 7 ) 
(TEMP (15) 


205  X8(I)=X(K)/C(I)*TG<i) 

GO  TO  191 
C 

c  X  =  ZERO  ERROR 

c 

207  S1~14.0207 
CALL  UNCLE 
219  51=14.0219 
CALL  UNCLE 
221  F2=0.U 

GO  TO  22b 
C 

c  UP  Y-lNTEGKATION  to  x=o 

c 

223  IF  (F2. LT.O.)  GO  TO  221 
225  FM(I)=F2 

FSM(I)  =  FS 

c 

c  FORM  TOP  SLICE  COnTRIBS  TO  X2 

C 

00  231  JSIAXP.I 

TEMP (11) =CSUO ( J ) - Y  SQD1 

FNL  s  SUMX4U)  -  SUMX3(J) 

XSQ  s  0X(J)**2 

X2(J)  =  X2  (<J)  ♦  FNL  *  ( XSu  ♦  XSG) 

FU= ( TEMP ( 11 ) ♦ ( FM ( I ) >F2 ) ♦ ( YSQCP-CSaO ( J) ) * ( SUMX4 ( I AXP) 
1  ♦5UMX3(IAXP) ) )/TEMP( 5) 

FLX  =  SUMX3( J)  ♦  SUMX4(J) 

FP  =  FLX  ♦  FU 

FPL  s  FP  ♦  FLX 

RH0(J)=RH0(U)*0X(J)*FP 

PR(J)  =  PRIU)  ♦  XSQ  *  (FPL  ♦  FLX)  *  OX(J) 

TR(J)  =  TR( J)  ♦  XSQ**2  *  FNL  *  4. 

231  CONTINUE 
LK1  =  2 
LOF  =  2 
IAXP=IU 
SUMX3*I)=F2 
S0MX4 ( 1 ) =F2 
I=IAXP 
K=K-1 


TRAN6400 

TRAN6410 

TRAN6420 


(-TE-.,P 
Y2( 1  +  1) ) ) 

TRAN6490 

TRAN6550 

TRAN656R 

TRAN6570 

TRAN6580 

TRAN6590 

TKAN66O0 

TRAN6610 

TRAN6620 

TRAN6630 

TRAN6640 

TRAN6840 

TRAN6850 

TRAN6860 

TRAN6870 

TRAN6880 

TRAN6890 

TRAN6900 

TRAN6910 

TRAN6920 

TRAN6930 

TRAN6940 

TRAN6950 

TRAN6960 


TRAN7080 


TRAN7130 


TRAN7140 

TRAN7150 

TRAN7160 

TRAN7170 

TRAN7180 
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C  IFIAbSITtMPI7) )  .LT.1.E-20)G0  TO  25  7  DELETED  3/16/67,  FCT 

11  =  I  -  1 

12  =  I 
HI  =  0. 

K2  —  X  IK ) 

IF  ITEMPll)  -  .02)  233*233.237 

C 

C  SMALL  OPTICAL  DEPTH  EXPANSION  (X=0*RHS) 

C 

233  NN  =  0 

CALL  SCAT 

U  =  AM  AX 1(0.*  1.  -  FMUS  /  HU-1)) 

F2  =  FS  ♦  F2  *  (1.  -  TEMPtl))  ♦  0  •  TEMPI  16) 

GO  TO  257 

C  NORMAL  KHS  U  =  0) 

23/  NH  =  1 

CAVEAT .  H4  IS  THE  S'JUAkE  OF  ITS  .lOKMAL  VALUE. 

EST  Sl.-  H4II-1) 

CALL  SCAT 

0  =  AMAXKO.t  1.  -  FMUS  /  H(I-l)) 

F2  =  FS  ♦  F2  •  H4ll-t)  *  •  ( Y2 ( I )  ♦  TEMPI 15)  ♦  FREXPl-TeMPl 1)  ♦ 

2  TEMP (2) )  *  I-TLMHI15)  ♦  1LMPU3)  *  <1.  -  TEMP (2) ) )  -  H41I-1)  • 

3  IY2U-1)  ♦  TEMPI  13) ) ) 

257  IF  IF2  .LT.  0.)  F2  =  0. 

GO  TO  259 
C 

C  CALCULATE  FHS  Y-LINE  integration 

C  ARRIVE  HERE  IF  Y-LlNE  INTERSECTS  INNER  RADILS 

239  1AAP=IAX 
I  =  IAX 
K=K-1 
LKI  s  2 
LDF  =  1 

IF  tlAX  .NE,  IN  .OR.  IN  .EO.  1>  GO  TO  238 
C  BLACKUOOY 

F2  =  X6IIN-1) 

GO  TO  259 

238  IF  tXIK+1) )  240.  207.  241 

C  OIFFUSION  BOUNDARY  CONOHION  WHEN  X  =  0. 

240  X8II-1)  =  0. 

HO  =  XIK)  •  HII-1) 

R1  =  0. 

GO  TO  242 

241  X8II-1)=XIK41)/CII-1)*T0I 1-1) 

HO  s  IXIK)  -  XIKUU  *  HII-1) 

Rl  =  XIK4D 

242  H4II-1)  =  FREXPI-HO) 

C 

C  OIFFUSION  BOUNDARY  CONOITION  AT  IAX 

C 

GO  TO  250 

249  HO  =  IXIK)-XIKU))*HII-1) 

Rt  =  Xi^4i) 

250  11  s  I  -  1 
12  *  1 


TRAN7240 

TRAN7250 

TRAN7270 


TRAN7340 


TRAN7430 

TRAN7440 

TRAM7450 

THAN7460 

THAH7470 

TRAM7480 


TRAN7500 


TRAN7530 
TRAN 7540 
TRAN7550 
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R2  =  X(K) 

UN  s  I  -  i 
TGI  =  XO(I-l) 

TG2  =  ABU) 

CALL  STEP 
C 

C  ANGULAR  INTEGRATION  OF  A2  USING  LINEAR  INTERPOLATION1 

C 

259  FNU  =  F2  -  FM(  I ) 

fNL  =  SUMX4 ( I )  -  SUMX3d) 

FXM=Oa( l)-X(K) 

X2d)  =  X2d)  ♦  (  ( X  ( K  )  ♦  X  ( K )  ♦  Oxd))  »  FNU  ♦  (OX  <  I )  +  Oxd)  ♦ 
2  X (K )  )  •  FNL)  •  FXM 
IF  (1  .ML.  ITUliL)  GO  TC  263 
IF  (EPS1  .GT.  T(JJ))  GO  TO  261 
IF  (EPS1  .LT.  TtMP(9))  o0  TO  2o 3 

Thick  =  Thick  ♦  ((xtuue  ♦  xiuut  ♦  oxd))  »  F2  ♦  <ox<n  ♦  0xd)  ♦ 

2  XTUUfc  >  •  SUMXh(I))  •  ( OX ( 1 )  -  XTjHt) 

GO  TO  263 

261  thick  =  thick  ♦  kxiki  ►  x(ki  ♦  oxd))  *  F2  ♦  (oxd)  ♦  ox<i>  ♦ 

2  X (K)  )  «  SUMX4(I|)  *  ( OX ( I )  -  X ( K )  ) 

263  FU=FM1)*P? 

FLX  S  SUM  3(1)  ♦  SUMX4 ( I ) 

TEMP(o) SQ^( 1 ) *OX ( 1 ) 

TEMP ( 7) -X  K)*X(K) 

FXP=QX(1) *X(K) 

FXP3  r  F) P**3 

FM1  z  FU  -  FLX 

HHO(  I )  — HHO(  1)*FX.M»(FU*FLX) 

PK(1)  =  PR  1 1 )  ♦  FxP  ♦  (  TchlP  (6)  ♦  TtMP  ( 7)  )  •  FMI  ♦  4.  • 

2  (FLX  •  OX(H  *  TtMP(ti)  -  FU  ♦  X(Kl  •  TEMP(7>) 

TR*  11  =  TH  (II  *  FXM  •  (F  HL  ♦  (FXP3  *  OX(I)  •  (3.  *  TEF.P(6)  - 

2  TLMP ( 7 ) ) )  ♦  FNU  •  (FXP3  ♦  X(K)  *  (3.  *  TEMP(7)  -  TEKP(6)))) 

C  SAVE  F2  AND  FM  FOk  NEXT  T-LINE 

c 

SUMX4 ( 1 )="2 
SUMX3(I)=FM(I) 

FSP(I)  =  FS 
OXd)SX(K) 

IF  (ABS( TG( 1) )  .LT.  l.E-20)  Y2(I)  =X6(I) 

1  =  1*1 
K=K-l 
LOF  z  2 

IF  (AdS(TGU))  .LT.  l.E-20)  Y2(l)  =  X6(I-1) 

IF  (I-IBXPl)  249.249.203 
C 

C  DEBUG  PRINT 

C 

(83  CONTINUE 

DHNUz)  (NUP-HNU 

IF  (AUS(TRDBG)  .LT.  l.E-20)  GO  TO  301 
CNT1  *  SOLID ( Id )  *  1.0 
WRITE  (6.30?)  HNU*  HNUP.  1HNU*  CnTI 
WRITE  (6.309)  Y(JJ) 


TRAN8120 

TRAN8130 

THAN8140 


TRAN8340 

TRAN8350 

TRAN8360 

TRANB380 

TRAN83?o 

TRANB410 

TRAN8420 


TRAN8740 

TRAN8750 

TRAN8760 

TRAN8780 
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mKITE  (6.311)  JJ.IAX.I.3X 
WRITE  (6. 31b) 

IAXP1=MAX0< IAX.IAXP-1) 

DO  29V  1=1 AXP1 . 1UXP1 
IP  (UJ.OT.l)  GO  TO  2V7 

PRINT  Y=0  INTEGRATION 

295  *RITE(6.313)I.t(I)  .XG(I)  »X0(I).H4<I).FSM(I). 

2FsP ( I ) * SUMX 3 ( I ) * SUMX4 ( I ) . X2 ( I ) 

GO  TO  2VV 

PRINT  REGULAR  Y-LINE  INTEGRATION 


TRAN8850 

TRAN8860 

TRAN8870 

TRAN8880 

TRAN88V0 

TRAN8900 

TRAN891Q 


TRAN8930 

TRAN8950 

TRAN8960 

TRAN8970 

TRAN894Q 


297  KKKSKK-I+IM+J  THAN8940 

WRITE(6.313)I.X(KKK) . X6 (I) • X8< I ) » H4 < I ) . FSM ( I ) ► 

2FSP ( I ) . SUMX 3 ( I )  » SUMX4 ( I ) . X2 ( I ) 

299  CONTINUE  TRAN8990 

IF  (TKDDG  .GT.  68.)  THUiiG  =  TROBG  -  69. 

301  IF  (JJ.EO.l)  GO  TO  303  TRAN9000 

•  ************************* **********«*******************,.* ****** *«****TRAN90 lo 

•TRAN9020 

EDIT  AND  Y-LINE  ADVANCE  *TRAN9030 

♦TRAN9040 

'*********,*********************«***************+******, ****** *««*«*.*«TKAN9050 
KK=KK-IFIX(X(KK*l))+2  TRAN9060 

303  YSQD1  =  YSGUP 

TEMP(9)SY(JJ)  TRAN9080 

JJ=JJ+l  TRAN9090 

GO  TO  87  TRAN9110 

307  FORMAT  (38M1Y-LINE  PRINT  FOR  FREQUENCY  BAND  FROM  F9.3*  5H  TO  F9. 

23.  10X7HIHNU  =  12.  10X6MCYCLE  F5.0) 

309  FORMAT  </5H  Y  =  1PE10.5)  TRAN9130 

311  FOHMAT  (bH  JJ  =  I3*10X7H  IAX  =  I3.10X7H  IBX  S  13//) 

313  FORMAT  ( I4» 1P9E14. 7 ) 

315  FORMAT  (3X1HI . 13X1HX. 12X2HXo. 12X2HX8. 

212X2HH4 . 1 1X3HFSM . 11 X3HFSP . 9X5HSUMX3 . 

39X5HSUMX4. 12X2UX2) 

END  TRAN9210 


TRAN9080 

TRAN9090 

TRAN9110 


TRAN9130 
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QrT  FOR  STEP/BL,  STEP/BL,  STEP/6L1 

SUBROUTINE  STEP  T 


COMPILED  oUNE  22*  1967 

WUL 

T 

C 

*T 

c» 

S  P 

U  T  1  t 

K  C 

o 

2 

3 

O 

N 

#*T 

c* 

**T 

c* 

**T 

COMMON 

LMOA137) , 

NR  . 

NSMLR 

.  IA 

.  IB 

.  ICA  . 

ICB  ,  T 

1 

KMAX 

*  BLANK1 » 

bLANK.Z, 

ULAIIK3 

•  I  API 

.  IBP1 

.  ICAP1  . 

ICBP1  *  T 

2 

II 

*  IG  » 

NR  AO  , 

OLANK4 

.  I  AMI 

.  IBM1 

.  ICAM1  . 

ICBM1  , T 

3 

IIP1 

,  IGM1  , 

I ALPHA* 

BLANKS 

.  TH 

.  TMAX 

.  HLANK6. 

delprt.t 

4 

FREQ 

*  CNTMAX* 

AR  . 

ASMLR 

•  PUSHA 

.  PUSHB  .  BOILA  * 

BOILO  , T 

5 

CVm 

*  CVb  > 

SLUG  . 

ALPHA 

•  HVA 

.  HVR 

.  HC  A  . 

HCB  ,  T 

6 

EMINA 

,  EMINH  , 

CA  • 

CB 

.  GA 

.  GB 

.  GL  . 

GR  ,  T 

7 

RHOL 

*  RHOK  * 

EPIO  . 

EPS  I 

.  RIA 

.  RIB 

.  RDI A  . 

RDIB  , T 

8 

RP1A 

*  RPIH  * 

RPDIA  . 

RPDIB 

.  TPRINT.  TA 

.  TB  . 

TC  T 

COMMON 

TO  * 

TE  . 

UTH2 

*  DTH2P 

*  DTH1 

.  DTRMlN. 

DTMAX  , T 

1 

*  OTMAX1*  0TMAX2* 

0TMAX3. 

UTR 

>  SWITCH.  CO 

.  CMIN  . 

DELTA  *  T 

2 

GAMA 

*  WCKIT  * 

SIGMAO. 

AC 

.  AC03T4.  CNVRT  .  SUMRA  * 

SUMRB  , T 

3 

ROIA 

*  KOI AMI  * 

ROIH  • 

K0IHP1 

.  GMS 

*  SI 

.  S2  . 

S3  ,  T 

4 

S4 

*  S5  , 

S6  . 

S7 

.  S8 

.  S9 

.  SlO  . 

Sll  ,  T 

5 

S12 

*  S13  * 

S14  . 

S15 

.  S16 

.  S17 

*  S18  . 

S19  ,  T 

6 

S20 

*  EO  • 

FO  * 

TAU 

.  ZERO 

.  R 

(152).  DELT AR ( 152) . T 

7 

ASO 

(152)*  KU 

(152). 

VD 

(152). 

ROD 

(152).  SMLR 

(152), T 

8 

DELH 

(  37).  P 

(152). 

PI 

(152). 

PB 

(152).  PB1 

(152)  T 

COMMON 

P2 

(152). 

S  V 

(152)* 

RHO 

(152).  THETA 

(152), T 

1 

H 

(152).  E 

(152). 

El 

(152). 

EK 

(152).  A 

(152), T 

2 

V. 

(152).  G 

(152). 

U 

(152)* 

C 

(152).  X2 

( 152) *T 

3 

X3 

(152).  X4 

(152). 

X5 

(152). 

X6 

(152).  X7 

(152), T 

4 

smla 

(152).  SMLB 

(152). 

SMLC 

*  152)  * 

SMLU 

(152).  SMLE 

(152), T 

5 

EC 

(152).  EK 

(152). 

SMLQ 

(152). 

smlh 

(152).  BIGA 

(152), T 

b 

BIGb 

(152).  CV 

(152). 

BC 

(152)* 

BR 

(152).  CHIC 

(152), T 

7 

CH1K 

(152).  CAPAC  (152). 

CAPAR 

(152). 

CRTC 

(152),  CRTR 

(152), T 

8 

CRTPC 

(152).  GOFH 

(152). 

FEW 

(152). 

CAR 

(152),  OKLM 

(  37)  T 

COMMON 

TELM 

(  37). 

EKLM 

(  37). 

elm 

(  37) ,  FCLM 

(  37), T 

1 

FRLM 

(  37).  WLM 

(  37). 

QLM 

(  37). 

AMASNO(  37).  CHRNO 

(  37), T 

2 

2P1 

(37).  ZP2 

(  37). 

SOLID 

(  37). 

ECHCK 

(  37),  RK 

(104) ,T 

3 

RL- 

(  37).  RHOK 

( 104) . 

RDK 

(104)* 

THETAK(104).  TEMP 

(  16), T 

4 

HEAD 

(  12).  MAXL 

9 

MAXLM 

T 

c 

C. 

T 

**T 

COMMON  /JIM/  WN*  FMU*  Rl»  R2*  HO*  EST*  11*  12*  GMP*  Al*  A3*  FMUS*  T 
2  FS*  LDF*  LKI*  IZN*  TGI*  TG2*  F2  T 


DIMENSION  CSQU 

(1),  PR  (1),  FH 

(D*  H 

(1),  H2 

(11, T 

1  H3 

(1).  H4 

(D*  FMS  (1).  Q1 

(1),  TG 

(1),  Q3 

( 1 ) ,  T 

2  Q37 

(1)*  038 

(1),  SUMX2  (D*  SUMX3  (D*  SUMX4 

(1),  X8 

( 1 ) ,  T 

550 

3  r 

(1),  Y2 

(1),  OX  (1).  FL 

(1),  TR 

(l),  FSM 

(1)  *T 

4  FSP 

(’.) 

T 

' 

T 

570 

equivalence 

(AC03T4,TRDBG»* 

<BC  *5UKX4) , 

(BIGA  ,Y 

) ,  T 

580 

1 

(BIGB  *  H 

),  (BR  »H3  )* 

(CAR  *Q37  )* 

(CHIC  , SUMX3) ,T 

59o 

2 

(CHIR  ,Q38 

)*  (CRTR  ,SUMX2>, 

(X7  ,PR  ), 

(GOFR  ,03 

),T 

600 

3 

(  PB  *Q1 

)*  (S12  .EDltMF), 

(EC  *H2  )* 

(  W  .OX 

),T 
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C 

c 

c 


4  ( 5ML A  *FMS  )«  (S,-!Lb  *FL  )•  (SMLC  * TR  )*  (SMLH  .H4  ).T 

b  (LR  *FM  )«  (V  »TG  )>  ( SMLO  *FSK  )*  (CRTC  .CSOD  ),T 

6.  1X5  t  Y2  )>  (X4  >  X0  ).  •(  SMLE  'FSP  )  T 

•******************.»*««»****«*»*«*****«»*»»******«»****»**************T  660 

*T  670 

OX  CONTAINS  X  FROM  THE  PREVIOUS  T  LINE  #T  660 

♦  T  690 


CSOD 

SAME 

AS 

CRTC 

*T 

700 

eoitmf 

SAME 

AS 

S12 

*T 

710 

Q1 

SAME 

AS 

PB 

*T 

FM 

SAME 

AS 

EK 

*T 

H 

SAME 

AS 

BIGB 

*T 

740 

H2 

same 

AS 

EC 

*T 

H3 

same 

Ar' 

BR 

*T 

760 

H4 

same 

AS 

SMLH 

*T 

770 

PR 

SAME 

AS 

X7 

*T 

FMS 

SAME 

AS 

SMLA 

*T 

FL 

SAME 

AS 

SMLB 

*T 

TR 

SAME 

AS 

SMLC 

*T 

FSM 

SAME 

AS 

SMLD 

*T 

FSP 

SAME 

AS 

SMLE 

*T 

Y2 

SAME 

AS 

X5 

*T 

OX 

SAME 

AS 

W 

*T 

TG 

SAME 

AS 

V 

*T  ' 

03 

SAME 

AS 

GOFR 

♦  T 

630 

037 

SAME 

AS 

CAR 

*T 

640 

038 

SAME 

AS 

CHIH 

*T 

650 

SUMX2 

SAME 

AS 

CRTK 

♦  T 

660 

SUMX3 

SAME 

AS 

CHIC 

*T 

670 

SUMX4 

SAME 

AS 

BC 

♦  T 

660 

TRDBG 

same 

AS 

AC03T4 

*T 

890 

Y 

SA  IE 

AS 

B1GA 

*T 

910 

X8 

SAME 

AS 

X4 

#T 

*T 

940 

>«««** 

>««< 

GO  TO  (20*  25)'  LliF 

IF  DIFFUSION  ZONE*  DEFINE  STARTING  INTENSITY 
20  F2  =  Y2(IX)  -  TGI 
25  IF  (HO  ,GT.  0.01)  GO  TO  30 
THIN  ZONE 
NN  =  0 
GO  TO  50 

NORMAL  ZONE  —  DEFINE  EXP(-UELTATaU) 

30  NN  =  I 

.60  TO  (35'  40)'  LRl 
35  H4 ( IZN)  s  FREXP(-HO) 

40  EST  SI.-  H4( IZN)**2 
50  CALL  SCAT 

Q  =  AMAXKO"  1.  -  FMUS  /  H(IZN)) 

NNl  =  NN  ♦  1 

GO  TO  (60'  70)'  NNl 

60  F2  =  FS  ♦  F2  *  (1.  -  HO  -  HO)  ♦  G  *  (((Y2(Ii)  ♦  Y2d2)>  *  0.5  * 

2  X6( IZN) )  ♦  HO) 

GO  TO  100 

70  F2  s  FS  ♦  F2  *  H4(IZN)**2  ♦  Q  *  (Y2(I2)  -  TG2  ♦  ((TGI  -  Y2(I1))  * 


T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 


2  H4( IZN)  ♦  TG2  -  TGI)  *  H4(IZN>>  T 

100  IF  (F2  .LT.  0.)  F2  SO.  T 

RETURN  T 

END  T 
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I 


0,T  FOR  iCAT/PP.SCAT/PP.SCAT/JP  T 

suurojtiwe  sc  At  t 

C  G£OMfctKY-INUtPt.UOt.f(T  COF.PTOU  SCATTERING  T 

C„MPILtO  OCTOJtR  9.  19o 7  rfJL 

C  *T 

C  T 

C  T 


COMMON 

LMOAt  37) . 

UK  .  USMLR 

.  1A 

9 

lb 

.  1CA  . 

ICO 

,  T 

1 

KMAX 

.  ULmnKI. 

OLA  IK 2.  uLANKJ 

,  1  API 

9 

IUP1  ,  ICAP1  , 

1C»P1 

,  T 

2 

II 

*  1G 

9 

NKAU  •  JLAUK4 

,  1  AMI 

9 

IBM1  ,  ICAM1  , 

ICBM1 

»  T 

3 

UPl 

»  I &M X  » 

I ALPHA*  OLAUK5 

.  TH 

9 

TMAX  ,  bLANKb. 

DELPKT.T 

4 

fkeo 

9  CNTHAXf 

AM  •  ASMLR 

,  PUSHA 

9 

PUSHD  .  UOILA  , 

BoILti 

,  T 

5 

CVA 

.  cvu 

9 

SLUG  ,  ALPHA 

,  HVA 

9 

HVB 

,  HCA  , 

HCB 

,T 

b 

EMiNA  .  EMlNH  . 

CA  *  Cb 

.  GA 

9 

Gb 

»  GL  , 

GK 

,  T 

7 

RHOL 

.  RHOR  * 

EPIO  ,  tPSI 

.  RIA 

9 

RIB 

,  RD1A  , 

RD1B 

,  T 

b 

PPIA 

.  RPlb  . 

RPUIA  .  KP01Q 

.  TPRINT, 

TA 

.  TO  . 

TC 

T 

COMMON 

to 

9 

TE  *  L)Th2 

.  0TH2P 

9 

OTh) 

»  DTRMlN, 

DTMAX 

,  T 

1 

OTMAXl.  0TMAX2. 

0TMAX3.  JTR 

,  SWITCH. 

CO 

,  CM1N  , 

DELTA 

,  T 

2 

GAMA 

.  ACM  1  f  • 

5IG.VAJ.  AC 

.  AC03T4, 

CNVRT  ,  SUPRA  . 

SUMRB 

,  T 

3 

ROIA 

.  ROIAM1. 

Rom  •  MoiuPi 

.  GMS 

9 

SI 

,  S2  , 

S3 

,  T 

4 

S4 

.  S5 

* 

Sb  ,  57 

.  SB 

9 

£9 

,  S10  . 

SU 

.T 

5 

SIX 

.  S13 

* 

S14  ,  S15 

.  S16 

9 

S17 

,  S18  , 

S19 

,  T 

6 

S2U 

.  EO 

* 

FO  .  TAU 

.  2ERO 

9 

R 

(152).  DELTAKU52) 

,  T 

7 

ASQ 

(152). 

RL) 

(152),  VO 

(152), 

RDD 

(152).  SMLR 

(152) 

,  T 

b 

UELH 

(  37). 

P 

(152).  PI 

(152). 

PB 

(152).  PHI 

(152) 

T 

common 

P2 

(152).  SV 

(152). 

RHO 

(152),  THETA 

(152) 

.T 

1 

W 

(152). 

E 

(152),  El 

US2), 

EK 

(152).  A 

(152) 

.T 

2 

V 

(Ib2>. 

G 

(152).  0 

(152). 

C 

(152),  X2 

(152) 

.T 

3 

X3 

(152). 

X4 

(152).  X5 

(152). 

X6 

(152),  X7 

(152) 

.T 

*1 

S«CA 

(152). 

SMlB 

(152).  SMLC 

(152), 

smld 

(152).  SMLE 

(152) 

,  T 

5 

EC 

(152). 

EH 

(152).  SMLQ 

(152), 

SMLH 

(152).  RIGA 

(152) 

,  T 

6 

UIGO 

(152). 

CV 

(152).  UC 

(152). 

br 

(152),  CHlc 

(152) 

.T 

7 

CHIK 

(152). 

CApAC  (152),  CAPAR 

(152). 

CRTC 

(152),  CRTK 

(152) 

.T 

b 

CRTPC 

(152). 

GOFH 

(152),  FEW 

(152). 

CAR 

(152).  OKLM 

(  37) 

T 

COMMON 

telm 

(  37),  EKLM 

(  37), 

elm 

(  37).  FCLM 

(  37) 

»T 

X 

FRLH 

(  37). 

HLM 

(  37),  OLM 

(  37). 

AMASNO(  37),  CHRNO 

(  37) 

»T 

2 

ZPI 

(  37), 

2P2 

(  37),  SOLID 

(  37), 

ECHCK 

(  37),  RK 

(104) 

,T 

3 

RL 

(  37), 

RMOK 

(104),  ROK 

(104), 

THETAK (104 ) ,  TEMP 

(  lb) 

»  T 

4 

MEAU 

(  12), 

maal 

.  MAXLM 

T 

T 

( 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ .T 

•T 


COMMON  /LINOLY/  MrtU.SGUL. IHNU»UHHU»HNUP *  NT* IM, IN.DMMU. THICK ,t(Y 


T 
T 

COMMON  /CNTNL/  ECYCLE,  JMuLT  T 

COMMON  /PALMER/  FlQ(152>.  FI1(152>.  FI2U52).  FI3U52).  FO0(152).T 
2  FQK152).  F02(15k>.  FC3(i52)  >  JORUM  T 

COMMON  /JIM/  NN»  FMU»  Rl.  R2»  HO*  EST.  Xl,  12.  GMP*  Al*  A3*  FMUS.  T 
2  FS»  LOF.  LKI .  I*M»  TGI.  TG2.  F2  T 


DIMENSION 

CSQU 

(1), 

PR 

(1), 

fm 

(1). 

H 

(1). 

H2 

(l),T 

1  H3 

(1). 

H4 

(1). 

fms 

(1), 

01 

(1), 

TG 

(1), 

03 

(1)  ,T 

2  037 

(1), 

030 

(1). 

SUKX2 

(1), 

SUMX3 

(1), 

SUMX4 

(1), 

X8 

(1).T 

3  Y 

(1). 

Y2 

(1), 

OX 

(1). 

fl 

(1), 

TR 

(1), 

FS« 

(1)  ,T 
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4  FSP 

Cl) 

T 

C 

T 

570 

EQUIVALENCE 

( ACQ3T4 »  TRDBG ) > 

(BC 

.SUMX4) > 

(B16A 

>  Y 

).T 

580 

1 

(BI6Q  *  H 

)>  (bR 

>H3  )  > 

(CAR 

>637  ) > 

(CHIC 

» SUMX3) >  T 

590 

2 

(CHIR  .038 

)>  (CRTR  >  SUKX2 )  » 

<X7 

>PR  )  > 

(GOFR 

>63 

)>T 

600 

3 

(  PB  >61 

)>  (S12 

.EOITMF) > 

(EC 

>H2  )  > 

(  X 

>0X 

).T 

4 

(SMLA  '.FMS 

)>  ( SMLB  >FL  )> 

(SMLC 

>TR  )> 

(SMLH 

>H4 

)>T 

S 

( ER  >FM 

)  >  (V 

>TG  )  > 

( SMLO 

.FSM  )> 

(CRTC 

>  CSQD 

)  >  T 

6 

(XS  >T2 

)>  (X4 

tXB  >  * 

(SMLE 

>FSP  ) 

T 

c. 

******************************************* ************ ***************T 

660 

C 

*T 

670 

c 

OX  CONTAINS  X  FROM  THE  PREVIOUS 

Y  LINE 

*T 

680 

c 

*T 

690 

c 

CSQU 

SAME  AS 

CRTC 

#T 

700 

c 

EOITMF 

SAME  AS 

S12 

*T 

710 

c 

61 

SAME  AS 

PB 

*T 

c 

FM 

SAME  AS 

ER 

*T 

c 

H 

SAME  AS 

bigb 

*T 

740 

c 

H2 

SAME  AS 

EC 

*T 

c 

H3 

SAME  AS 

BR 

*T 

760 

c 

H4 

SAME  AS 

SMLH 

*T 

770 

c 

PR 

SAME  AS 

X7 

*T 

c 

FMS 

SAME  AS 

SMLA 

*T 

c 

FL 

SAME  AS 

sMlb 

*T 

c 

TR 

SAME  AS 

SMLC 

*T 

c 

FSM 

SAME  AS 

SMLO 

*T 

c 

FSP 

SAME  AS 

SMLE 

*T 

c 

T2 

SAME  AS 

X5 

*T 

c 

OX 

SAME  AS 

W 

*T 

c 

T6 

SAME  AS 

V 

*T 

c 

63 

SAME  AS 

gofk 

♦T 

030 

c 

637 

SAME  AS 

CAN  . 

*T 

040 

c 

Q3S 

SAME  AS 

CHIN 

*T 

050 

c 

SUMX2 

SAME  AS 

crtk 

*T 

060 

c 

SUMX3 

SAME  AS 

CHIC 

*T 

070 

c 

SUMX4 

SAME  AS 

BC 

*T 

000 

c 

TR0B6 

SAME  AS  AC03T4 

*T 

090 

c 

T 

SAME  AS 

BIGA 

*T 

910 

c 

xa 

SAME  AS 

X4 

*T 

C********************************************************************-***^ 
C  *T 

C. *****.**********************. *****************************************T 

CALL  QVCHK (iMHAO) 

60  TO  <1>2)>IMHA0 

1  Sl=75.001 
CALL  UNCLE 

2  60  TO  (100.  102*  102)*  I  ALPHA 
10 Q  SQMU  =  FMU  *  FMU 

FMUX  =  FMU 
R1  s  R1  /  FMU 
R2  s  K2  /  FMU 
60  TO  106 
102  TSQ  =  FMU 

XX  =  R2  *  R2 
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XP  =  Rl  *  hi 

IP  (YSQ  .GT.  0.)  GO  TO  104 
SQMU  =  1. 

FMUX  s  1, 

GO  TO  106 

104  SQMU  =  0.5  *  (XP  /  (XP  ♦  YSG)  ♦  XX  /  (XX  ♦  YSQ ) ) 

FMUX  -  SORT (SO'IU) 

106  OX  =  HZ  -  hi 
110  FMUS  5  FMS(IZU) 

BB  =  FI0(I2)  -  Flo  ( 1 1  >  +  SQMU  *  (FI2U2)  -  FI2(I1)> 

IF  ( AUS <  SCI  10(36) )  ,LT.  l.t-20)  GO  TO  115 
C  THOMSON  SHOUT  CUT 

Vf  (Nil  .NE.  0)  GO  TO  112 

FS  =  .375  *  FMUS  *  UX  *  (<FI0(I1)  ♦  SQMU  *  FI2(I1>>  *  (1.  -  HD)  + 

2  .5  *  BB) 

GO  TO  26 

112  AA  =  i<2  *  (FIO  ( II )  +  SMU*FI2(ID)  -  R1  *  (FI0(I2)  ♦  SQMU*FI2  ( 12) ) 

FS  =  .375  *  FMUS  /  (HD  +  HD)  *  (AA  *  EST  ♦  BB  *  <DX  ♦  Rl  *  EST)  - 

2  BB  *  OX  •  EST  /  (HD  ♦  HD)) 

GO  TO  26 

C  NOKMAL  COMPTON  PATH 

115  DU  =  F 1 3 ( 1 2 )  -  F13 ( 1 1 )  +  SQMU  *  (FI1(I2)  -  FI 1< 11) ) 

IF  ( IHNU  .EG.  1)  GO  TO  5 

FF  =  FU0II2)  -  FGQ(Il)  ♦  SGMU  *  <FQ2(I2>  -  FQ2(I1)) 

HH  =  FQ3( 12 )  -  F03 ( I 1 )  +  SQMU  *  (FQ1II2)  -  FQ1 ( II ) ) 

5  IF  (NN  .GT.  0)  GO  TO  1U 

C  THIN  RECIPE 

FS1  =  (1.  -  Al)  *  (<1.  -  HD)  *  (FIU( Ill  ♦  SQMU  *  FI2(I1))  '/  ,5*BB) 
FS2  s  -Al  *  FMUX*  ((1.  -  hD)  *  (FI3(I1)  ♦  SQMU  *  Fill  III)  ♦  ,5*DD) 
IF  ( IHNU  .EQ.  1)  GO  TO  9 

FS3SA3* <  < 1 .-HD ) * (FOO (III +SOMU*FQ2 (ID ) ♦• 5*FF ) 

FS4  :  A3  *  FMUX  *  (<1.  -  HD)  *  <FQ3(I1)  ♦  SQMU  *  FQKIl))  ♦  ,5*HH) 
FS  =  .375  *  FMUS  *  (FSl  +  FS2  +  FS3  ♦  FS4)  *  DX 
GO  TO  25 

9  FS  =  .375  *  FMUS  *  (FSl  +  FS2)  *  OX 
GO  TO  25 

10  AA  S  R2  *  (FIO ( II )  ♦  SOMU*F 12(11) )  -  R1  *  (FI0JI2)  ♦  SQMU*FI2 ( 12 ) ) 
CC  =  K2  *  (FI3(I1)  ♦  SQMU*FI1(I1) )  -  Rl  *  (FI3«I2)  ♦  SQMU*FIKI2)) 
IF  (IHNU  ,EQ-»  1)  GO  TO  15 

EE=R2« ( FQO (ID ♦SQmU*FQ2 (ll))-Rl*(FQ0(I2) ♦SQMU*FQ2 ( 12 ) ) 

GG=R2* ( FQ3  < 1 1 ) ♦SQMU*FQ  H 1 1 ) ) -Rl* ( FQ3 ( 1 2 ) ♦SQMU*FG1 1 12 ) ) 

15  TERM2  =  DX  ♦  EST  •  (Rl  -  OX  /  (HO  ♦  HD)) 

FSl  =  <1.  -  Al)  *  (AA  *  EST  ♦  BB  *  TERM2) 

FS2  =  -Al  *  FMUX  *  (EST  •  CC  ♦  DO  *  TERM2) 

IF  (IHNU  .EQ.  1)  GO  TO  20 
FS3=A3* (EE*EST  ♦  FF*TERM2) 

FS4  =  A3  *  FhUX  *  (EST  *  GG  ♦  HH  *  TERM2) 

FS=.375*FMUS/ ( HD*HU ) * ( FS1+FS2+FS3+FS4 ) 

GO  TO  25 

20  FS= . 375*FMUS/ ( HD+HD ) * ( FS 1+FS2 ) 

25  FMUS  =  FMUS  *  GMP 

26  IF  (FS  .GT.  (-1.E-20)  )  GO  TO  29 

IF  (ABS(HVB)  .LT.  l.E-20)  GO  TO  128 
WRITE  (6.  27)  FS.  IZN.  IHNU.  FMUX 

27  FORMAT  (6H  FS  =  1PE13.6.  7X6HIZN  =  13.'  7X7HIHNU  =  12.  7X6HFMU  =  1 
2PE13.6) 

WRITE  (6.28)  Rl.  R2.  HD.  EST.  F51»  FS2.  FS3.  FS4.  AA.  BB.  CC.  OD» 

2  EE.  FF.  GG.  HH.  FiO(Il).  FI0(I2).  FIKU).  FI1(12).  FI2(I1). 

3  FI2( 12) .  FI3 ( 1 1 ) .  FI 3 ( 12 ) 

28  FORMAT  (IPOtlb.o) 

lr  (TRUBG  .LT.  68.)  TKUbG  =  TROBG  *  69. 

128  FS=0. 

IF  (ABS(CVB)  .LT.  l.t-20)  GO  TO  29 

51=75.008 

CALL  UNCLE 

29  CALL  DVCHK ( IMHAO) 

GO  TO  (30. 40). IMHAO 

30  51=75.0009 
CALL  UNCLE 

40  RETURN 
ENO 
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APPENDIX  IV 

APPLICATIONS  OF  THE  PLANE  GEOMETRY  CODE 


The  plane  geometry  code  was  applied  in  conjunction  with  the  standard 
SPUTTER  code  to  several  one-dimensional  problems.  The  problem  definition 
can  be  summarized  as  follows: 

T  =  600  eV 
o 

p  =  1  g/ cm 

20  zones 
0  10  cm 

The  only  physical  process  considered  was  radiation  transport,  i.  e.  ,  no 
hydrodynamics.  The  equation  of  state  for  the  material  was  that  of  CH2. 

The  opacity  used  was  that  of  a  hypothetical  material  in  which  /cR  =  0.  2  at 
all  frequency  groups. 

The  results  of  the  calculations  are  shown  in  figures  8  through  13. 

Figure  8  shows  the  flux  as  a  function  of  u  =  hv/kT  for  the  Thomson  scatter- 

2 

ing,  i.  e.  ,  l/m  c  =0.  The  difference  between  the  curves  at  0  and  2  mfp 
represents  the  energy  deposited  into  the  material.  However,  in  the  case 
of  Thomson  scattering,  no  material  heating  should  occur.  One  should  look 
at  this  discrepancy  as  a  convergence  problem.  The  results  of  figure  8  are 
plotted  for  cycle  20.  Extending  the  calculation  further  would  improve  the 
accuracy  at  the  cost  of  further  computer  time. 

Figure  9  is  the  same  calculation  with  Compton  scattering.  One  should 
note  the  spectrum  changes  at  the  high-frequency  end.  This  reduction  in 
the  spectrum  for  the  Compton  case  is  qualitatively  in  agreement  with  theory. 


T,  ,  =8  keV 

boundary 
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FLUX  (ERG/CM2  SEC/A u) 


FLUX  ( ERG/CM*  SEC/Au) 
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Figure  9.  Spectrum  at  Various  Optical  Depths  Employing 
Compton  Scattering 
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Figure  10.  Exit  Spectrum  for  Compton  Scattering 


FLUX  (ERG/CM4  SEC/Au) 
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puted  Heating  Rates 


FLUX 
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Figure  13.  Comparison  of  Convergence  Rates  for  Thomson 
and  Compton  Scattering 
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In  the  first  two  problems,  illustrated  in  figures  8  and  9 ,  the  frequency 
groups  were  (0  to  8  keV),  (8  to  16  keV),  (16  to  24  keV),  (24  to  32  keV), 

(32  to  40  keV),  (40  to  48  keV),  (48  to  56  keV),  (56  to  64  keV),  (64  to  72  keV), 
and  (72  to  100  keV).  The  question  arises  as  to  how  dependent  is  the  solu¬ 
tion  on  the  number  and  definition  of  these  groups.  In  figures  9  and  10,  two 
different  groupings  were  considered.  In  figure  10,  the  frequency  groups 
were  chosen  to  include  10  percent  of  the  energy  in  an  8-keV  blackbody. 

It  is  apparent  from  figure  10  that  the  spectrum  has  been  distorted  by  unequal 
frequency  groups.  This  conclusion  was  also  supported  by  the  fourth  problem, 
i.  e.  ,  the  case  in  which  the  number  of  frequency  groups  was  doubled. 

Initially,  the  first  nine  frequency  groups  were  halved,  whereas  the  (72  to 
100  keV)  group  remained  constant.  This  problem  was  unsuccessful.  The 
unequal  frequency  grouping  caused  discontinuities  to  be  propagated  through 
the  spectrum.  This  difficulty  was  eliminated  by  changing  the  (72  to  100  keV) 
group  to  (72  to  76  keV),  where  all  the  groups  were  then  4  keV  wide.  The 
results  of  this  problem  are  shown  in  figure  11.  Notice  that  figures  9  and 
11  have  converged  to  approximately  the  same  solution.  With  the  previous 
remarks  in  mind,  one  should  be  hesitant  about  solving  problems  in  which 
the  frequency  groupings  are  unequal. 

In  figure  9,  the  difference  between  the  curve  at  2  and  0  mfp  is  the 
amount  of  energy  used  to  heat  the  material.  To  determine  if  this  is  a 
reasonable  estimate,  a  comparison  of  the  material  heating  ratio  (SMLE) 
and  the  theoretical  heating  rates 


as  a  function  of  zone  is  presented  in  figure  12.  The  difference  between 
these  two  curves  can  be  used  as  a  criterion  for  convergence. 

A  further  point  of  interest  is  how  fast  the  solution  converges  to  its 
steady- state  value  at  the  edge  of  the  window  away  from  the  source. 
Figure  13  graphically  displays  this  convergence. 
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APPENDIX  V 

COMPTON  AND  INVERSE  COMPTON  SCATTERING 


INTRODUCTION 

Scattering  of  photons  by  free  electrons  in  the  Compton  scattering 
process  results  in  a  modification  of  the  radiative  intensity  in  angular  distri¬ 
bution  and  spectrum  by  virtue  of  the  resulting  energy  and  momentum 
exchange.  This  rate  of  change  of  intensity  is  described  by  the  equation  of 
radiative  transfer,  a  Boltzmann  equation  for  the  photons.  The  objective 
here  is  to  derive  an  approximation  to  the  radiative-transfer  equation  which 
is  valid  when  the  scattering  takes  place  from  electrons  in  a  Maxwellian 

distribution  having  temperature  0  .  For  this  temperature  to  be  maintained, 

e 

it  is  necessary  for  electrons  to  undergo  numerous  energy-exchanging  col¬ 
lisions  between  each  photon  scattering  event.  These  collisions  are  then 
sufficient  to  maintain  a  Maxwellian  distribution  at  the  same  temperature. 
Compton  collisions  with  moving  electrons  may  result  in  gain  of  photon 
energy  (inverse  Compton  collisions)  as  well  as  energy  loss.  Both  of  these 
processes  in  the  general  case  are  necessary  to  describe  the  events  which 
take  place  in  a  Compton  scattering  medium.  In  particular,  the  realization 
of  a  state  of  equilibrium  between  the  photons  and  the  electrons  requires 
the  inclusion  of  inverse  Compton  collisions  and  the  direct  Compton  colli¬ 
sions  to  a  consistent  degree  of  approximation. 


SCATTERING  EQUATIONS 

The  equation  for  the  transfer  of  photons  in  a  scattering  medium  has 
been  given  in  general  form  by  Sampson  (Ref.  8)  and  by  Bond,  Watson,  and 
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Welch  (Ref.  9).  This  equation  has  been  applied  by  Freeman  (Ref.  4)  to 

the  Compton  scattering  of  photons  by  electrons  at  rest.  In  that  work  the 

equations  are  derived  for  photons  having  energies  which  are  small  compared 
2 

with  me  .  An  expansion  is  performed  of  the  Klein-Nishina  cross  section 

2 

through  second  order  in  the  quantity  y  =  hv/mc  .  A  further  Taylor  series 

expansion  in  frequency  of  the  scattered  intensity  about  the  frequency  of  the 

photon  beam  in  question  is  performed  to  obtain  an  "agelike"  approximation. 

A  similar  treatment  of  the  equation  of  transfer  for  scattering  has  been  given 

by  Fraser  (Ref.  5).  He  takes  into  account  the  Compton  scattering  to  first 

order  in  y  and,  in  addition,  includes  terms  to  first  order  in  the  quantity 
.  2 

ot  =  0  /me  ,  thereby  including  the  inverse  Compton  effect  in  first  order. 

6 

The  objective  in  this  appendix  is  to  reduce  the  results  of  Fraser  to  a  form 
more  suitable  for  calculation  and  to  test  his  results  in  certain  known  limit¬ 
ing  cases.  The  equation  of  scattering  transfer  will  be  derived  first  in  a 
form  suitable  for  application  to  a  general  geometric  situation.  The  equa¬ 
tions  are  then  simplified  by  specialization  to  the  plane  and  spherically 
symmetric  geometries,  and  finally  the  diffusion  approximation  is  derived. 

The  equations  for  the  Compton  scattering  are  contained  in  Fraser's 
expressions  for  r^,  r2>  andr^  as  given  in  his  Eqs.  (31),  (32),  and  (33). 
When  the  drift  velocity  u^  is  zero,  these  equations  become 

r{  =  -N+0  I(v, I2)(l  -  Zy) 

2 

r2  =  -N<t>o  . . 3  I(v,fl)  V  (l  -  «v.O')(l  -  p  +fiZ  -H3) 

l6irhv  '  ’ 


r3  5  -n*o75T  M1  '  v  £)/*>'  «-<»<»  Vld 


-j^l  *a(i-2v  £  +v2  — 2jj_/dJl,I(v,!l)tc.^4-2v  I(v,Q’)|i 

-jl  -a^6  +  2v  .v2i^^y*dn'I(v,  {J')p2  -  a^4  +  2v  v 2  — ^  j’da'UvSt'fr3  (68) 
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2 

where  N  is  the  total  number  density  of  electrons  and  <J>  =  8ir/3  (r  )  =  6.  65  x 

-25  2  ° 

10  cm  is  the  Thomson  scattering.  In  Eq  (68),  the  values  of  Mq)  M  , 


M^>  an^  M3 


have  been  substituted  for  as  follows: 


mq  -  n  •  (m^  -  m2  +  m3)  =  fxi'  i(v,n')(i  +  n2)  (1  -  it) 

where  the  cosine  of  the  angle  of  scattering  is  fi  •  ft'  =  fi.  These  terms 
represent  the  scattering  contributions  to  the  equation  of  radiative  transfer 
for  the  intensity  I(v,ft).  The  first  term  represents  the  scattering  out  of 
the  beam  proportional  to  the  total  Klein-Nishina  cross  section  expanded  to 
first  order  in  y.  The  second  term  represents  the  contribution  of  stimulated 
scattering  to  both  of  the  processes  of  scattering  from  the  beam  and  scatter¬ 
ing  into  the  beam.  The  quantity  T3  describes  the  scattering  of  photons  into 
the  beam  by  all  of  the  electrons  contained  in  the  Maxwell  distribution. 

•  A  comparison  shows  that  the  -independent  terms  are  the  same  as  Freemm's 
first  order  in  y  terms.  These  terms  can  be  regrouped  to  display  the  order 
of  the  terms  more  effectively.  Their  sum,  comprising  the  scatterirg  con¬ 
tributions  to  the  radiative  transfer  equation,  is 
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-  V- 


(1  -  Zy)  I(v,fl)  - 


l6ir 


Jm'  I(v,Q')(l  +  p2) 


-  y 


(*  - v  £)/ 
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where  li  =  <b  N. 
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--~I(v,n)y^l  -  v^)y*dO'  I(v,fl')(l  +M2)(l  -  ft) 


(70) 


In  order  to  place  the  equation  in  conservative  form  in  anticipation  of 
formation  of  difference  equations  for  numerical  work,  it  is  desirable  to 
reformulate  the  frequency  derivative  terms.  This  reformulation  corresponds 
to  isolating  those  terms  which  contribute  to  exchange  of  energy  within  the 
photon  distribution  from  the  terms  which  contribute  to  exchange  of  energy 
between  the  electrons  and  photons.  The  desired  substitutions  are  as  follows: 


y 


81  82(vZI) 

8v2  '  »»  '  8v2 


8  v 


(71) 


For  the  case  of  spherical  or  plane  geometry,  symmetry  of  the  radiative 
intensity  about  the  polar  direction  can  be  assumed.  This  symmetry  per¬ 
mits  the  integration  of  the  azimuthal  component  of  the  solid  angle  in  the 
photon  scattering  terms.  If  the  results  of  Freeman  (Ref.  4,  p.  10)  are  used, 
the  scattering  terms  become 
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where 


f(Ml.M3)  -  -  1  +  ^(3*^  "  5)  M3  +  (3/i^  -  1)  (3  -  5M ^ )M 3 

In  Eq.  (72),  the  inclusion  of  the  additional  terms  for  induced  emission  and 
inverse  Compton  scattering  is  not  appreciably  more  difficult  than  for  the 
Compton  scattering  term  already  considered.  The  same  angular  integrals 
enter  as  in  Freeman's  Eq.  (18)  (Ref.  4).  The  main  difference  arises  in 
the  presence  of  the  second  derivative  with  respect  to  frequency  in  addi¬ 
tion  to  the  first  derivative  occurring  in  the  Compton  formulation. 

The  diffusion  approximation  can  also  be  carried  out  in  parallel 
fashion  to  the  derivation  of  Compton  scattering  for  cold  electrons.  In  this 
case  two  equations  result,  which  are  obtained  from  the  zeroth  and  first 
moments  of  the  equation  of  transfer.  The  Compton  terms  entering  in  the 
zeroth-moment  equation  are 

/  &I  \  2  /  91  91  \ 

-n  -y(l  +  v — -  )+  JL_  y(l2  _  _L  I2  _  vi  — °-f-  — VI  i  j 
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and  those  for  the  first-moment  equation  are 


TESTS  OF  THE  EQUATIONS 

The  equations  derived  above  can  be  subjected  to  a  number  of  tests 
to  determine  whether  known  results  are  obtained.  Consider  a  scattering 
medium  containing  a  weak  radiation  field  for  which  the  stimulated  emission 
terms  can  be  neglected.  Integrations  can  then  be  carried  out  over  the 
solid  angle  and  the  entire  frequency  spectrum.  The  resultant  integrated 
radiative-transfer  equation  becomes  an  equation  for  the  rate  of  change  of 
radiation  energy  within  a  particular  volume  element.  The  Compton  contri¬ 
butions  to  the  rate  of  change  represent  thr  rate  of  loss  or  gain  of  energy 
from  the  radiation  field.  They  also  correspond  to  the  gain  or  loss  of  energy 
by  the  electrons.  These  terms  are 


where  E^  -  1/c  /  dftl(v,ft)  is  the  spectral  radiation  energy.  This  is  pre¬ 
cisely  the  result  given  by  Grasberger  (Ref.  10). 

The  terms  taking  account  of  the  stimulated  scattering  can  also  be 
included  provided  the  radiation  is  isotropic.  The  contribution  to  the 
heating  rate  is 
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If,  in  addition,  the  radiation  energy  is  given  by  a  Planck  distribution  having 
a  temperature  0^,  as  given  by 


I  =  B  = 


2h  v 

2  hv/0 
c  r 

e 


1 


(77) 


the  frequency  integrations  can  be  performed.  The  total  resulting  heating 
rate  of  the  electrons  is 


dE 
_ e 

dt 


1 

S 


2 

me 


(78) 


where  <r  is  the  Stefan-Boltzmann  constant.  This  rate  is  applicable  to  a 
blackbody  enclosure  in  which  the  radiation  intensity  is  somehov/  maintained 
in  a  Planck  distribution  corresponding  to  a  radiation  temperature  which  is 
different  from  the  temperature  of  the  electrons  within  the  enclosure.  The 
derived  electron  heating  rate  is  a  weli-kno'vn  result  (Ref.  10)  which  displays 
the  characteristic  that  the  radiation  and  electron  temperatures  will  approach 
each  o^her  by  virtue  of  this  scattering  interaction,  yielding  an  equilibrium 
state  in  which  the  temperatures  are  equal. 

These  results  test  all  of  the  Compton  terms,  including  the  induced 
scattering  terms.  Consequently,  they  constitute  a  strong  confirmation  of 
the  correctness  of  these  equations. 


A  PPROXIMA  TIONS 

Several  approximations  have  been  made  in  deriving  these  equations 
which  limit  their  applicability.  First,  the  neglect  of  high-order  terms  in 
y  and  a  restricts  validity  of  the  transfer  equation  to  hv  and  8^  of  the  order 
of  100  kV.  The  inclusion  of  the  terms  corresponding  to  y 2  given  in  reference  4 
would  allow  application  of  the  equations  to  somewhat  higher  photon  energies. 
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The  second  approximation,  resulting  from  the  expansion  of  the  fre¬ 
quency  dependence  of  the  intensity  and  omission  of  quadratic  terms  in  the 
frequency  difference,  implies  that  I  must  be  a  smooth  function  of  frequency. 
Near  a  photoelectric  edge  or  in  the  neighborhood  of  a  line  profile,  these 
conditions  may  not  be  satisfied.  An  investigation  of  the  validity  of  this 
approximation  has  been  carried  out  by  Chandrasekhar  (Ref.  ii),  who 
evaluated  the  transmission  of  line  radiation  through  a  cold  scattering  atmos¬ 
phere.  His  result  shows  that  even  in  the  case  of  a  6-function  source  of 
radiation,  a  relatively  small  error,  as  measured  by  the  fraction  of  energy 
erroneously  scatt©red  to  higher  frequencies  (see  Fig.  33,  Ref.  11,  p.  334), 
results  (approximately  15  percent  for  an  atmosphere  containing  two-thirds 
of  a  mean  free  path). 

The  neglect  of  the  specific  effects  of  polarization  may  also  be  of 
some  consequence.  Chandrasekhar  (Ref.  12)  has  compared  the  diffuse 
reflection  resulting  from  radiation  incident  on  a  semi-infinite  scattering 
medium  when  the  correlation  of  photon  polarization  after  scattering  is 
followed  or  neglected  Differences  of  the  order  of  5  percent  in  the  scattered 
intensity  are  obtained  (see  Figs.  24  and  25,  Ref.  12,  pp.  262  and  263). 

Scattering  in  fhe  treatment  of  this  report  results  from  electrons 
which  are  free.  Effects  of  binding  of  the  electrons  and  the  localization  of 
the  electrons  within  the  atom  give  rise  to  modifications  of  the  incoherent 
scattering  Klein-Nishina  formula  for  free-electron  scattering  and  produce 
additional  scattering  which  is  coherent  with  the  incident  radiation.  These 
effects  are  small  wren  the  energy  of  the  photon  is  much  greater  than  the 
binding  energy  of  the  atom  and  when  the  temperature  of  the  material  is 
sufficiently  high  that  the  probability  of  bound  electrons  being  present  is 
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EQUILIBRIUM  SPECTRA 

In  this  subsection,  the  solutions  to  the  above  equations  corresponding 
to  scattering  of  radiation  in  a  homogeneous  enclosure  are  examined.  The 
equation  for  the  spectral  energy  density  is 


The  steady-state  solution  of  these  equations  should  admit  a  Planck  function 
lor  the  radiation  intensity  corresponding  to  the  temperature  of  the  electrons. 
Substitution  of  the  Planck  function  into  Eq.  (79)  shows  that  such  is  the  case. 
For  the  Planck  function  to  satisfy  this  equation,  however,  it  is  necessary 
that  the  correct  number  density  of  photons  be  present.  This  condition  will 
not  in  general  be  satisfied,  however,  if  only  the  scattering  interaction  is 
present.  More  generally,  the  equilibrium  will  be  achieved  with  too  few  or 
too  many  photons  for  the  thermodynamic  equilibrium  solution  to  apply. 

If  too  few  photons  are  present,  the  induced  scattering-terms  quadratic  in 
I  will  be  negligible,  giving  the  steady- state  equation 


2  ^ 

2  _ o 
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This  equation  is  satisfied  by  the  function  I  =  Av  e  .  the  Wien  approxi¬ 

mation  to  the  Planck  function,  but  it  has  an  arbitrary  normalization,  depend¬ 


ing  on  the  number  of  photons  present. 

If,  on  the  other  hand,  there  are  too  many  photons  for  the  thermo¬ 
dynamic  equilibrium  solution,  only  the  quadratic  'erms  need  be  retained, 
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In  this  case,  the  solution  is  I  =  Bv,  where  B  depends  on  the  photon  number 
density.  However,  this  solution  is  valid  only  for  frequencies  such  that 
v2  <  (c2/h)  B. 


CRITERIA  FOR  COMPTON  HEATING 

The  inclusion  of  the  Compton  and  inverse  Compton  scattering  contri¬ 
butions  to  the  heating  rate  is  required  only  when  the  heating  by  pure 
absorption  is  negligible  by  comparison.  In  order  to  estimate  the  conditions 
where  the  Compton  terms  must  be  included,  an  estimate  of  the  absorption 
contribution  to  the  heating  is  derived  and  is  then  compared  with  the  corres¬ 
ponding  Compton  scattering  formula.  As  shown  above,  if  the  radiation 
intensity  can  be  characterized  by  a  Planck  distribution  with  0^,  the  electron 
heating  rate  from  Compton  scattering  is 

dE  V 

—rr  I  =  2. 1  X  10"  N  0  (0  -  0  )  (ergs/cm  sec)  (82) 

dt  /c  e  r  r  e 

-3 

vhen  temperatures  are  measured  in  eV  and  in  cm 

At  high  temperatures,  the  pure  absorption  mechanism  giving  the 
largest  contribution  will  be  that  from  the  free  -free  absorption.  By  using 
the  absorption  coefficient  for  the  free-free  process  (Ref.  13),  it  is  possible 
to  derive  a  formula  for  the  rate  at  which  electrons  exchange  energy  with 
the  photons: 


dE  \ 

~/ff  =  1 


5  x  10'25  Z2N  N.  0"1/2  (0  -  0  )  (ergs/cm3  sec)  (83) 

e  i  e  re 


,2 


where  Z  is  the  effective  square  of  the  ionic  charge  and  is  the  ionic 
number  density. 
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The  ratio  R  of  the  absorption  heating  rate  to  the  scattering  heating 
rate  is  given  by 


-9  2 

7.  2  x  10  Z  N. 


e  r 


A  large  value  of  R  implies  that  scattering  can  be  neglected  in  the  electron 
heating  rate.  As  an  illustration  of  the  application  of  this  formula,  one  can 
obtain  the  temperature  and  density  conditions  at  which  heating  due  to  scat¬ 
tering  and  absorption  are  equal.  Figure  15  displays  the  temperature- 
density  dependence  of  this  condition,  R  =  1,  for  several  typical  materials, 
assuming  that  0^  =  0^.  In  applying  this  result,  it  should  be  kept  in  mind 
that  deviations  of  the  radiation  spectrum  from  Planckian  will  strongly 
affect  the  answer. 

The  above  criterion  for  the  electron  heating  rate  does  not  directly 
apply  to  the  relative  importance  of  absorption  and  scattering  on  the  spectrum 
itself,  since  the  frequency  dependence  of  the  absorption  and  scattering  terms 
is  quite  different.  If  R  >  1,  the  low-frequency  portion  of  the  spectrum  will 

\ 

be  dominated  completely  by  absorption.  The  high-frequency  portion  of  the 
spectrum  will  be  modified  predominantly  by  direct  Compton  scattering  if 
0f  0fe  and  by  inverse  Compton  scattering  when  0^  «  0^. 


Figure  15.  Temperature  and  Density  at  Which  Heating  Rates  Due  to 
and  Scattering  are  Equal 
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APPENDIX  VI 

A  MODIFIED  METHOD  OF  CHARACTERISTICS 
FOR  RADIATIVE  TRANSFER 


In  references  14  and  15,  quantities  termed  "transmission  functions  1 
are  proposed  for  use  in  the  analysis  of  radiative  transfer  by  the  method  of 
characteristics.  These  functions  are  mean  values  of  the  monochromatic 
attenuation  factor  exp(-p/c  Ax)  for  a  range  of  frequencies  Av,  where  Ax  is 
an  interval  along  a  ray  within  which  the  density  p  and  opacity  ic^  are 
assumed  to  be  uniform.  The  frequency  average  of  this  exponential  is  taken 
with  two  different  weighting  functions  B  and  dB^/d0.  In  an  idealized 
problem  with  uniform  temperature  only  the  first  of  these  averages,  denoted 
by  S(Ax),  is  needed.  This  function,  defined  by 


Sij(Ax.) 


(85) 


has  a  limiting  form  for  very  small  Ax^  given  by 


V^i’ 


exp(-p<  Ax^) 


(86) 


P 

where  is  the  usual  Planck  mean.  For  larger  Ax  (in  most  cases  still 
lJ 

rather  small)  the  function  flattens  out  rapidiv;  i.e.  ,  -(1/p  Ax)  log  S  is  a 
decreasing  function  of  Ax,  eventually  limiting  to  the  minimum  value  of 

_  i 

in  the  frequency  group  at  sufficiently  large  Ax,  plus  terms  of  order  Ax 
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In  a  medium  with  uniform  composition,  temperature,  and  density,  the 
transport  equation  for  the  intensity  in  group  j  at  a  point  x  along  a  ray 

Xo  <  x  <  xn  due  to  radiation  moving  in  the  positive  x  direction  is  given  in 
references  14  and  15  as 

yv =  Bj(x„)  +  ti(xo'  -  B(x0)J  sj(x„  •  v  <87> 

If  the  interval  (x  ,x  )  is  now  subdivided  into  n  zones  of  width  Ax  =  (x  -x  )/n, 
®  n  no’ 

the  intensity  at  each  of  the  subdivision  points  is 

I.(x.)  =  B.(x.)  +  [I(xul)  -  B(xul)]  S.(Ax) 

=  B^x.)  +  [I(x._2)  -  B(x._2)]  S?(Ax) ,  etc.  (88) 

By  repeated  application  of  Eq.  (88),  or*  readily  obtains 

Uxn)  =  B.(xn)  +  (I(xo)  -  B(xq) ]  s"(Ax)  (89) 

which,  withEq.  (87),  implies  that 

S^(nAx)  =  s"(Ax)  (90) 

a  condition  which  is  satisfied  if  S  is  an  exponential  function,  but  is  unfor¬ 
tunately  violated  by  functions  of  the  type  described  in  references  14  and  15. 
With  sufficiently  fine  subdivision  of  the  medium  in  this  example,  the  atten¬ 
uation  would  in  fact  be  that  given  by  the  Planck  opacity,  an  incorrect  result 

P 

apart  from  the  limiting  case  in  which  p*  (x  -  x  )  «  1. 

n  o 

This  example  exhibits  the  limitations  resulting  from  one  of  the 
assumptions  made  in  references  14  and  15,  and  in  Eq.  (87),  namely  that 
the  frequency  dependence  of  I(v)  within  each  group  is  proportional  to  that 
of  B(v)  at  every  point  along  the  ray.  Actually,  the  frequency  dependence 
of  I(v)  depends  inherently  upon  conditions  along  the  entire  ray,  and  no 
method  of  frequency  averaging  based  onlv  upon  locally  evaluated  tempera¬ 
ture  and  density  can  be  expected  to  be  valid. 
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A  second  and  unrelated  difficulty  occurs  in  spherical  geometry, 
namely  that  consistent  and  simple  models  for  the  spatial  dependence  of  the 
source  function  do  not  reduce  to  the  correct  diffusion  limit,  and  other 
models  which  limit  correctly  are  somewhat  inconsistent  and  have  a  ten¬ 
dency  to  yield  negative  values  for  the  intensity  (Ref.  2,  Vol  III). 

In  this  appendix  a  formulation  is  proposed  which  employs  (1)  nonlocal 
"transmission  functions"  of  exponential  form  and  (2)  an  apparently  consistent 
model  for  the  source  function  which  has  the  correct  diffusion  limit.  The 
method  utilizes  only  the  currently  available  Planck  and  Rosseland  group 
mean  opacities,  but  is  capable  of  generalization  to  a  formulation  which,  by 
describing  the  frequency  dependence  of  opacity  within  each  group  in  more 
detail,  may  allow  use  of  fewer  groups  to  attain  the  needed  accuracy. 

For  monochromatic  radiation,  the  intensity  along  a  ray  at  optical 
depth  is  given  by 


-(t 

I(T  )  =  I(t  )  e 
n  o 


(91) 


with  integration  by  parts, 


I(Tn)  =  B(/)  +  [I(tq)  -  B(/)]  e 


-(t 


n 


To> 


n  dB  -<Tn  -  T)  „ 

e  dT  (92) 


/n  dB 
dT 


The  last  term,  representing  source  gradient  contributions  to  the  intensity, 
may  be  represented  as  a  sum  of  individual  zone  contributions: 
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t)  n 

-  ■  £ s. 
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(93) 
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where 


„  A  dB  -(Tn-T'  ±l  4  -(Tn-Tk' 

Qk„^/  dTe  dT  +  <Ek-Ek)e 
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ds  +  Bk  •  Ek 


(94) 


Here  s  is  the  geometric  distance  along  the  ray,  cr^  =  is  assumed 

constant  in  each  interval  s  <  s  <  s  ,  and  the  possibility  of  discontinuous 

l\  "i  lx 

B(s)  at  interval  boundaries  is  allowed  for. 

It  is  now  necessary  to  represent  the  scarce  gradient  dB/ds  in  an 
explicit  manner.  Let  the  direction  cosines  of  a  ray  with  respect  to 
Cartesian  axes  x,  y,  and  z  be  denoted  respectively  by  t| ,  and  t, ;  then 


ds  =  7-  dx  =  —  dy  =  7-  dz 

I  n  C 


The  quadratic  form 


2  2  2  2 

B(x,y,z)  =  B(xk,yk,  zk)  +  ak(z  -  zk)  +  pk  (x  +y  -  ^  -  yfc) 


*y(x  +  y 


X,  .  <  X  <  X, 

k-l  k 


(95) 


yk-l  <y  <Vk 
Zk-1  <Z  <Zk 


(96) 


has  plane  symmetry  if  Pk  =  yk  =  0,  cylindrical  symmetry  if  ak  =  yk  =  0, 
spherical  symmetry  if  a,  =  p.  =  0,  and  two-dimensional  finite)  cylindrical 
symmetry  if  just  y  =  0.  This  form  may  be  simplified  somewhat  if  the 

lx 

Cartesian  axes  can  be  chosen  independently  for  each  ray,  so  that,  for 
example,  the  x-axis  is  parallel  to  the  direction  of  the  ray  in  spheiical 
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geometry,  or  to  the  projection  of  the  ray  on  the  plane  z  =  0  in  cylindrical 
geometry. 

From  Eqs.  (95)  and  (96)  the  source  gradient  along  the  ray  is 


dB 


-j7  =  Qfv4  +  2(3^(|x  f  qy)  +  2 yj|x  +  qy  +  £z) 


(97) 


so  that 
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On  comparing  Eqs.  (97)  and  (98),  it  is  apparent  that  when  t  -  t  »  1 

n  n-1 

the  intensity  limits  to  the  value 


I(t  )  =  B(t  )  -  -p  | 

•  n  n  dT  t  =  t  1 

n 


(99) 


where  for  plane  geometry  t'  =  t  and  otherwise  t'  =  t  -  1.  This  is 

n  n  n  n 

essentially  consistent  with  the  diffusion  approximation. 

So  far,  the  analysis  has  been  restricted  to  the  single -frequency  case. 
Equation  (92)  contains  several  types  of  terms,  each  with  a  different 
frequency  dependence,  corresponding  to  a  variety  of  different  materials, 
temperatures,  and  densities.  Since  frequency  averaging  destroys  the 
separability  of  these  contributions  (as  discussed  above),  approximation 
methods  of  a  nonlocal  character  are  needed. 

The  transmission  functions  of  reference  15  can  easily  be  generalized 
to  nonlocal  form.  For  example,  the  Planck  transmission  function  defined 
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for  a  single  zone  by  Eq.  (85)  is  to  be  replaced  by  the  kernel 


Sj(Si'Sn)  =  /J+1  <riB(Gi-V>  [-'rk<v'pk'0k>Ask,dv//JTJ  o\B(0^,  v)dv 

(100) 


n-1 


rv  J+1 


'V. 

J 


k-i 


'v. 

i 


which  describes  the  attenuation  of  radiation  emitted  at  s.  between  s.  and  a 

i  i 

field  point  s  .  Of  course,  the  direct  evaluation  of  the  terms  in  Eq.  (100) 
n 

is  scarcely  feasible  in  practice.  Instead,  a  representation  of  the  entire 
function  is  required  which  can  be  readily  evaluated  and  which  preserves 
some  of  the  characteristics  of  Eq.  (100),  in  particular,  the  thin  limit 

lim  S.(s.,s  )  =  1  -  (s  -  s.)  tr^(s  )  (101) 

Jin  n  i  j  n 

s  -*s. 
n  l 

p 

where  or.  (s  )  is  the  group  Planck  mean.  A  necessary  condition  for  the 
J 

diffusion  limit  is  that  for  opacity  independent  of  position 


lim 

g  -» -00 

i 


R,  X 
"j  *n 


S.(  s ,  s  )  ds  =  1 
J  n 


(102) 


where  a.  (s  )  is  the  group  Rosseland  mean.  In  general,  S.  as  a  function  of 
J  n  J 

s^  should  be  uniformly  positive,  while  the  first  derivative  should  be 
uniformly  negative;  also,  the  function  should  be  short-range  in  the  sense 
that  for 


s.  -*-«  ,  S.(s. ,  s  )  ~  (s  -  s.) ”m  ,  m  >  1 

i  j  i  n  n  l 


(103) 


where  if  m  is  not  infinite,  as  for  an  exponential,  it  is  at  least  large  enough 
to  restrict  the  significant  contributions  to  the  integral  in  Eq.  (102)  to 
source  positions  within  a  very  few  Rosseland  mean  free  paths  of  the  field 
point  in  all  except  pathologically  nongrey  cases. 

The  following  construction  is  a  nonlocal  "picket-fence"  (Refs.  16 
and  17)  transmission  fui  .."ion  of  this  type.  It  is  assumed  that  the  group 
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Planck  and  Rosseland  means  are  known  a,  each  point,  and  .ha,  a  parameter 

bkj  character, stic  of  the  opacity  distribution  within  group  j  a,  point  s  can 

be  chosen.  (For  brevity,  the  group  index  j  will  be  suppressed  in  the" 

following  formulas.)  The  ftrst  step  is  to  construct  the  following  composite 
opacities  for  each  point; 

eA  =  ?Pd  beR  ■  sand  -  b2l  f,„P  .  .  b^R„  1/2 

lib  - - 1 -  (104) 

<rB  =  - - -b<rR  +  sgn(l  -  b2)  f (cr P  -  o-R)((rP  -  b2^Rn1/2 

1  -  b  - - U -  (105) 


where  b  is  to  be  chosen  so  that  «rA  and  <rB  are  real,  and 


0  <  o-A  <  aB 


(106) 


These  condition,  are  satisfied  if  cr  if  sgn(,  -  b*)  =  <gn(,P  .  .R,, 


l.  e .  , 


,2  „  pi  R 

b  <  1  <  o’  /  (j- 


b2  >  1  >  (rP/aR 


(107) 


(108) 


quatton  (108)  only  applies  to  cases  which  are  nearly  grey,  or  which  have 
substantial  scattering  contribution,  in  the  Ros.eland  mean.  Value,  of 
a  and  a  for  two  ratios  eP/„R  are  shown  in  figure  16 . 

The  second  step  is  to  define  the  optical  distances 


A,  /»sn  A 

T  V  sn ^  ~  J  ^  ds 


(109) 


B.  /•  n 

T  si ’  sn*  ~ J  *  ds 


(110) 


189 


AF'VL-TR-67-1  31,  Vol  III 


Next,  the  transmission  function  is  represented  by 

A.  .  B 

*t  (s.,s  )  -r  (s  .s  ) 

S(s  ,  s  )  s  j(l  4  b  )  e  1  n  +  j(l  -  b  )  e 

i  n  2  n  c  n 


and,  finally,  the  'nonlocal  opacity"  by 


(111) 


<r(s. ,  s  ) 
i  n 


S(8.,5n) 


.  [*.  .  -tA(s.,s  )  R  -tB(s  ,  s  )"| 

1  I  1  . .  ,  .  A.  .  in  1..  ,  .  B.  .  i  n  I 

=  — - r  -r  (1  +  b  )<r  (s  )  e  +  -  1  -  b  )<r  (s  )  e 

S(s. ,  s  )  2  n'  n  2  n  n  J 

in1- 

•  (112) 

p 

The  significance  of  the  parameter  b  is  now  clearer.  Assuming  <r  to  be 

considerably  larger  than  c  along  the  ray,  two  limiting  cases  can  be 

distinguished.  The  nongrey  character  may  be  due  to  the  presence  within 

the  group  of  a  few  strong  line  components,  with  the  absorption  minima,  or 

windows,  occupying  most  of  the  group  width.  The  appropriate  values  of  b 

will  then  be  those  near  1,  so  that  according  to  Eq.  (105)  the  "line"  opacity 

o'  is  large  compared  with  <r  .  The  transmission,  as  shown  in  figure  17  , 

attenuates  at  tha  Planck  rate  for  a  very  short  distance,  with  most  of  the 

contributions  attenuated  at  a  rate  <r  which  is  slightly  less  than  theRosseland 

mean.  At  the  other  extreme,  there  is  the  less  probable  situation  in  which 

the  absorption  maxima  are  broad,  with  the  nongrey  character  due  to  the 

A 

presence  of  isolated  narrow  but  deep  windows.  For  b  —  -1,  a  -*  0,  and 
B  P 

<r  -»  <r  .  The  transmission  attenuates  at  nearly  the  Planck  mean  rate 
for  perhaps  several  Planck  mean  free  paths,  but  then  levels  out  in  such  a 
way  that  small  contributions  are  transmitted  with  little  attenuation  from 
remote  sources.  For  intermediate  cases,  values  of  b  near  zero  may  be 
used.  In  particular,  for  b  =  0, 


P  r  P.  P  R. .  1/2 

a  ±  [a  (a  -  <r  )] 


(113) 
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and  just  half  of  the  emitted  radiation  attenuates  by  each  of  the  rates  <r 

B  PR 

and  <r  .  For  a  <  a  ,  in  order  that  the  S  function  defined  by  Eq.  (Ill)  be 
positive  at  large  distances,  b  must  be  restricted  to  positive  values  b  >  1. 
The  transmission  functions  also  have  a  more  appropriate  shape  near  the 
source  for  b  >  1,  as  shown  in  figure  17. 

The  evaluation  of  the  parameter  b  will  be  discussed  in  a  subsequent 
report,  in  terms  of  a  distribution  function  for  mean  free  paths  at  each 
point  (Ref.  17).  In  the  absence  of  such  information,  a  "defined"  value 
such  as  0  may  be  used.  It  should  be  noted  that  the  Milne -Eddington  model 
is  not  explicitly  assumed;  however,  b  is  not  treated  as  a  function  of  position 
in  the  definitions  of  the  derivative  and  integral  yf  the  transmission  function, 
Eqs .  (112)  and  (102). 

The  quantities  of  the  form  e“^Tn  “  and  <r^  appearing  in  Eqs.  (92) 
and  (98)  may  then  be  evaluated  by  the  expressions  given  in  Eqs.  (Ill)  and 
(112),  respectively,  to  obtain  a  computationally  feasible  frequency- 
averaged  form. 

The  source  gradient  coefficients  or^,  (3^,  y^  in  Eqs.  (96),  (97),  and 
(98)  are  readily  defined  by  Rosseland  optical  depth  interpolation.  The  index 
k  may  be  regarded  as  ordering  the  intersections  of  the  ray  with  successive 
surfaces,  which  are  alternately  boundary  surfaces  and  midsurfaces  for 
each  cell;  furthermore,  k  and  s  are  assumed  to  increase  in  the  direction 
of  the  ray.  Thus,  if  k  indexes  a  boundary  point  and  k-1  a  zone  midpoint, 
for  one -dimensional  cases 


B-B  B-B  B-B 

k  k-1  „  k  k-1  k  k-1 

“k =  =  “ — 5 — '  ^ =  ~ — 5 — 


k  k-1 


k  “  2  2  ’  rk  2 


rk  '  rk-l 


R,  -  R,  . 

k  k-1 


(114) 


2  2  2  2  2  2  2 
where  r  and  R  are,  respectively,  x  +  y  and  x  +  y  +  z  ,  and 


-  (Bk+l  "  Bk-1)  °k(zk  '  zk-l* 

Bk  =  Bk.i  +€kir  “  r  :  : 

°k(zk  "  Zk-1^  +  ^k+l  Zk+1  "  Zk 


(115) 
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for  plane  geometry,  and 


B,  =  B,  .  +  <  . 
k  k-1  k 


(«52  (R,2  -  R,2  ,)  M.,RjV2  .  - 


(lib) 


for  spherical  geometry.  One -dimensional  cylindrical  geometry  may  employ 

an  interpolation  formula  like  Eq.  (116)  with  R  replaced  by  r.  The  coefficient 

c,  is  1  unless  the  step  model  is  to  be  used,  in  which  case  <  =0  and  con- 

k  k 

sequcntly  =  0.  In  two-dimensional  cylindrical  geometry,  the 

corresponding  formulae  for  bilinear  Rosseland  optical  deoth  interpolation 

2 

in  the  variables  z  and  r  are  left  as  an  exercise  for  the  reader.  If  k 
indexes  a  midpoint,  similar  formulae  apply,  with 


Bk  -  Bk.i 

Of  =  - - ,  etc. 

k  *k  -  zk.i 


(117) 


A  final  remark  is  that  for  the  plane  case,  the  integration  over  ray 
orientation  should  be  performed  analytically.  The  exponentials  in  Eq.  (Ill) 
are  then  to  be  replaced  by  E-functions.  The  detailed  evaluation  of  this 
approach  is  left  for  a  subsequent  report. 
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